# Load data
data(adult)
# compute scales
scales <- build_scales(adult, cols = "auto", verbose = TRUE)
# Scale data set
adult <- fast_scale(adult, scales = scales, verbose = TRUE)
# Control
print(mean(adult$age)) # Almost 0
print(sd(adult$age)) # 1
# To unscale it:
adult <- fast_scale(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