data <- matrix(rnorm(9400, mean=5, sd=2), 100, 94)
data <- stcenter(data) # Center and scale the dataset
# Check for mean
sum(data) / (nrow(data) * ncol(data))
# Check for sd
sqrt( sum(data^2) / (nrow(data) * ncol(data) - 1) )
Run the code above in your browser using DataLab