除以标准差不是方差

用R计算x[,1:ncol(x)]-apply(x[,1:ncol(x),2,mean])，得出的值就和Excel结果不一致了，我用rnorm虚构了10行2列的数据，表现为单数行（1,3,5,7,9....）结果与Excel一致，偶数行第一列计算结果是每行减去第二列均值（正确应为减去第一列均值），是否我循环命令哪里出错？

scale()函数可以直接求z分数

Sigmoid<-function(x){
for(i in 1:ncol(x)){
m<-c()
v<-c()
c=(x[,1:ncol(x)]-apply(x[,1:ncol(x)],2,mean))/apply(x[,1:ncol(x)],2,var)
d=1/(1+exp(-c))
}
return(d)
}

如上，Z只是标准化的一步或一种，因为在作不同标准化处理对数据分析结果的影响，涉及到文献当中不同标准化的方法，还有模型拟合后的反标准化，所以想自己编写标准化函数，但是否是循环语句错误，如上，第一句循环就出现计算错误，有无解决办法没？求教

qq402977180，私聊？