R/scale_min_max.R

In Close-your-eyes/scexpr: Lots of helpers and wrappers to analyze scRNAseq data sets

#' Title
#'
#' @param x
#' @param min
#' @param max
#' @param margin
#'
#' @return
#' @export
#'
#' @examples
scale_min_max <- function (x, min = 0, max = 1, margin = 2) {
  if (is.matrix(x) || is.data.frame(x)) {
    if (is.data.frame(x)) {
      if (!all(apply(x, 2, is.numeric))) {
        stop("Please make sure that all columns of the data frame are numeric.")
      }
    }
    if (margin == 1) {
      return(do.call(rbind, apply(x, margin, function (y) min + ((y- min(y)) * (max- min) / (max(y)-min(y))), simplify = F)))
    }
    if (margin == 2) {
      return(do.call(cbind, apply(x, margin, function (y) min + ((y- min(y)) * (max- min) / (max(y)-min(y))), simplify = F)))
    }
  } else {
    return(min + ((x- min(x)) * (max- min) / (max(x)-min(x))))
  }
}