第一步:导入数据
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
第一步:导入数据
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