各位大神：

最近想利用R对数据进行标准化处理，文献中常用Z-Score方法对数据进行标准化，数学公式为：Z=（x-x(mean)）/x（sd）

数据框中每个数值减去该列的平均值，再除以该列的方差

在R中编写了一个标准化函数：

Zscore<-function(x){
for(i in 1:ncol(x))
c=(x[,1:ncol(x)]-apply(x[,1:ncol(x)],2,mean))/apply(x[,1:ncol(x)],2,var)
}
return(c)
}


实际使用中却发现标准化后的数据，与利用Excel计算的结果不一致，求教各位是否函数哪里编写错误，求助！