1、以读入txt格式的数据为例子，第一步打开R软件包，读入数据，如下图所示：
2、使用转换矩阵命令as.matrix()，使读入的数据变成矩阵格式，如下图所示：
3、验证是否转换成功，命令is.matrix()返回TRUE表示转换成功，如下图所示：
第一步：导入数据
data1<-read.table('clipboard',header=T) （其中，将EXCEL表格中的数据先复制，然后进行导入，即可），
第二步：将数据框转化为矩阵（A）
A<-as.matrix(data1)
第三步：将数据框的第一行的标题去掉
colnames(A)<-NULL
第四步：求矩阵A的转置阵，设转置阵为A1
A1<-t(A)
第五部：计算矩阵A与其转置阵A1相乘
H1<-A%*%A1
