# generate a dataset with size factors: .5, 1, 1, 2
dds <- makeExampleDESeqDataSet(m = 4, n = 1000,
interceptMean=log2(1e3),
interceptSD=0,
sizeFactors=c(.5,1,1,2),
dispMeanRel=function(x) .01)
counts(dds)[11:15,] <- 2e5L
head(fpm(dds), 3)
head(fpm(dds, robust=FALSE), 3)
# the column sums of the robust version
# are not equal to 1e6, but the
# column sums of the non-robust version
# are equal to 1e6 by definition
colSums(fpm(dds))/1e6
colSums(fpm(dds, robust=FALSE))/1e6
# the total sum is equal for both methods
sum(fpm(dds))
sum(fpm(dds, robust=FALSE))
Run the code above in your browser using DataLab