R/TCC.getNormalizedData.R

In jqsunac/TCC: TCC: Differential expression analysis for tag count data with robust normalization strategies

TCC$methods(getNormalizedData = function () {
    effective.libsizes <- colSums(count) * norm.factors
    return (sweep(count, 2, 
                  mean(effective.libsizes) / effective.libsizes, "*"))
})