x <- runif(1000, 5, 8)
# calling rescale without specifying mu and sigma doesn't change anything
all.equal(x, rescale(x))
# change the mean without changing the standard deviation
x1 <- rescale(x, mu = 3)
all.equal(mean(x1), 3)
all.equal(sd(x1), sd(x))
# rescale mean and standard deviation
x2 <- rescale(x, mu = 3, sigma = 2)
all.equal(mean(x2), 3)
all.equal(sd(x2), 2)
Run the code above in your browser using DataLab