R/medianCtr.R

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

Defines functions medianCtr

Documented in medianCtr

medianCtr<-function(x){
  annAll <- dimnames(x)
  medians <- apply(x,1,median,na.rm=T)
  x <- t(scale(t(x),center=medians,scale=F))
  dimnames(x) <- annAll
  return(x)
}

Try the genefu package in your browser