tests/testthat/test_makeDS.R

library(pcaExplorer)

context("Check that example dds is generated correctly")

dds <- makeExampleDESeqDataSet_multifac(betaSD_condition = 3, betaSD_tissue = 1)

library(SummarizedExperiment)
expect_equal(names(colData(dds)), c("condition", "tissue"))
federicomarini/pcaExplorer documentation built on April 8, 2024, 3:15 a.m.