主要不知道这个协方差矩阵怎么处理啊？或者如果能用R语言直接标准化吗？
#协方差矩阵 #等价于cov(data) data<-as.matrix(data) n<-nrow(data) mx<-diag(1,n)-matrix(1,n,n)/n covA<-t(data)%*%mx%*%data/(n-1);covA