1.求解矩阵的秩:qr()$rank #参考使用qr矩阵分解 2.矩阵装换成数据框: matrix.frame<-function(matrix) { data.<-numeric() x<-numeric() y<-numeric() for(i in 1:dim(matrix)[1]) { for(j in 1:dim(matrix)[2]) { x<-c(x,i) y<-c(y,j) data.<-c(data.,matrix[i,j]) } } data.frame(x,y,z=data.) }