data(DataQuan) # set of quantitative data
data <- DataQuan[,2:8]
res <- NormData(data, type = 1) # normalizes the data globally
res # Globally standardized data
sd(res) # overall standard deviation
mean(res) # overall mean
res <- NormData(data, type = 2) # normalizes the data per column
res # standardized data per column
apply(res, 2, sd) # standard deviation per column
colMeans(res) # column averages
Run the code above in your browser using DataLab