dat <- matrix(2*round(runif(100),2), ncol=4)
mean(dat); sd(dat)
dat2 <- standardW(dat)
apply(dat2, 2, sd)
summary(dat2)
dat3 <- standardW(dat, byColumn=TRUE)
apply(dat2, 2, sd)
summary(dat2)
mean(dat2); sd(dat2)
Run the code above in your browser using DataLab