Included EBSeq for downstream differential expression analysis

[rsem.git] / EBSeq / R / MedianNorm.R

MedianNorm=function(Data){

    geomeans <- exp(rowMeans(log(Data)))
        apply(Data, 2, function(cnts) median((cnts/geomeans)[geomeans >  0]))
}