R/rescale.R

In jdblischak/ci4r: Demonstrate CI testing for an R package

#' Rescale a vector
#'
#' @param x a numeric vector
#'
#' @return a numeric vector with min 0 and max 1
#'
#' @export
rescale <- function(x) {
  stopifnot(is.numeric(x))
  lower <- min(x)
  upper <- max(x)
  (x - lower) / (upper - lower)
}