R/scale_minmax.R

In funkyheatmap: Generating Funky Heatmaps for Data Frames

#' Scale a vector to the range \[0, 1\]
#'
#' @param x A numeric vector
#' @return A numeric vector scaled to the range \[0, 1\]
#' @export
#'
#' @examples
#' scale_minmax(c(1, 2, 3))
scale_minmax <- function(x) {
  minx <- min(x, na.rm = TRUE)
  maxx <- max(x, na.rm = TRUE)
  (x - minx) / (maxx - minx)
}