R/medianCtr.R

In bhklab/genefu: Computation of Gene Expression-Based Signatures in Breast Cancer

#' @title Center around the median
#'
#' @description
#' Utility function called within the claudinLow classifier
#'
#' @usage
#' medianCtr(x)
#'
#' @param x	 Matrix of numbers
#'
#' @return
#' A matrix of median-centered numbers
#'
#' @references
#' citation("claudinLow")
#'
#' @seealso
#' [genefu::claudinLow]
#'
#' @md
#' @export
medianCtr <- function(x){
  annAll <- dimnames(x)
  medians <- apply(x,1,median,na.rm=TRUE)
  x <- t(scale(t(x),center=medians,scale=FALSE))
  dimnames(x) <- annAll
  return(x)
}