set.seed(1) x <- runif(7) # Manually scaling (x - mean(x)) / sd(x) scale(x, center = TRUE, scale = TRUE)