linear_rescaling.R

# rescale a numeric vector to new maximum and minimum values
# original values will map to new values in a linear fashion

rescale <- function(x, MIN, MAX) { # linear rescaling
  y <- x - min(x)
  y <- y * (MAX - MIN) / max(y)
  y + MIN
}

# example

rescale(1:10, 0, 100)
rescale(1:10, 100, 0) # also works backwards