scale2(x, lower = -1.5, upper = 1.5)
lower
upper
set.seed(123) x <- runif(5) scale2(x, -1, 1) scale2(x, 0, 10)
Run the code above in your browser using DataCamp Workspace