R/quantile_normalization.R

In survtype: Subtype Identification with Survival Data

Defines functions quantile_normalization

Documented in quantile_normalization

quantile_normalization <- function(x)
{
  # x : expression profile
  Rownames <- rownames(x)
  Colnames <- colnames(x)
  y <- rowMeans(apply(x, 2, sort))
  qnorm <- apply(x, 2, function(x){quantile(y, ecdf(x)(x), type = 1)})
  dimnames(qnorm) <- list(Rownames, Colnames)
  qnorm
}

Try the survtype package in your browser