# NOT RUN {
# Load data
data(adult)
# compute scales
scales <- build_scales(adult, cols = "auto", verbose = TRUE)
# Scale data set
adult <- fastScale(adult, scales = scales, verbose = TRUE)
# Control
print(mean(adult$age)) # Almost 0
print(sd(adult$age)) # 1
# To unscale it:
adult <- fastScale(adult, scales = scales, way = "unscale", verbose = TRUE)
# Control
print(mean(adult$age)) # About 38.6
print(sd(adult$age)) # About 13.6
# }
Run the code above in your browser using DataLab