# Attach packages
library(rearrr)
# Set seed
set.seed(1)
# Create numeric vector
x <- runif(10)
# Scale
min_max_scale(x, new_min = -1, new_max = 0)
min_max_scale(x, new_min = -1, new_max = 0, old_max = 3)
Run the code above in your browser using DataLab