data(hammer)
hammer.counts = Biobase::exprs(hammer)[, 1:4]
hammer.design = Biobase::pData(hammer)[1:4, ]
hammer.counts = hammer.counts[rowSums(hammer.counts) >= 5, ]
ss = subsample(hammer.counts, c(.01, .1, 1), treatment=hammer.design$protocol,
method=c("edgeR", "DESeq2", "voomLimma"))
seed = getSeed(ss)
Run the code above in your browser using DataLab