# NOT RUN {
n <- 100
X <- matrix(rnorm(10*n) - 1, nrow = n, ncol = 10)
res1 <- BSSprep(X)
res1$Y # The whitened matrix
colMeans(res1$Y) # should be close to zero
cov(res1$Y) # should be close to the identity matrix
res1$MEAN # Should hover around -1 for all 10 columns
# }
Run the code above in your browser using DataLab