R/getNormFactor.R

Defines functions getNormFactor

Documented in getNormFactor

getNormFactor <- function(
    countsTable1
){
    countsTable1.log=log(countsTable1) 
    row.mean1.log=rowMeans(countsTable1.log)
    geo.dev1.log=countsTable1.log-row.mean1.log
    apply(geo.dev1.log, 2, function(x){ exp( median(x[is.finite(x)]) ) })        
}

Try the sSeq package in your browser

Any scripts or data that you put into this service are public.

sSeq documentation built on Nov. 8, 2020, 5:52 p.m.