powered by
standardise(x, center = TRUE, scale = TRUE)
colVars, cova, cora
x <-matrix( rnorm( 10000 * 100), ncol = 100 ) system.time( scale(x)[1:10000, ] ) system.time( standardise(x) ) a1 <- standardise(x) a2 <- scale(x)[1:10000, ] all.equal(a1, a2)
Run the code above in your browser using DataLab