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