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
矩阵不完全显示处理法。1. 识别缺失数据。
2. 检查导致数据缺失的原因。
3. 删除包含缺失值的实例或用合理的数值代替(插补)缺失值。