context("TabulateStats")
test_that("TabulateStats", {
data("DEG")
DE.list<-list("edger" =dge_edger, "edgerql" = dge_edgerql,
"deseq2" = dge_deseq2, "voom" = dge_voom )
expect_error(TabulateStats(DE=DE.list , FoldChange=1.5 , cutoff =0.01 , DE.Only = "ABC"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.