R 矩阵的列标准化形式

如何按列标准化矩阵。我正试图达到与scale（矩阵）相同的结果。这是我的实现，当列>1时，它给出了与scale函数不同的结果

standardize <- function(X)
{
  stan <- (X - mean(X))/sd(X)
  return(stan)
}
A = matrix( c(2, 4, 3, 5), nrow=2)
standardize(A)
scale(A)

标准化

我想您可能需要
apply（）
如下所示


或者您可以编写
标准化（）
之类的

其工作原理与标度（A）相同
我想您可能需要
apply（）
如下所示


或者您可以编写
标准化（）
之类的

其工作原理与
scale（A）

apply(A, 2, standardize)

standardize <- function(X) apply(X,2, function(v) (v - mean(v))/sd(v))

standardize(A)