inst/script/make_ex_deseq_results.R

library(DESeq2)

set.seed(1)

ex_deseq_dataset <- makeExampleDESeqDataSet(n = 200, betaSD = 2)
ex_deseq_dds <- DESeq(ex_deseq_dataset)
ex_deseq_results <- results(ex_deseq_dds)

saveRDS(ex_deseq_results, "inst/extdata/ex_deseq_results.rds")
travis-m-blimkie/tRavis documentation built on April 9, 2024, 11:45 p.m.