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 May 3, 2024, 11:16 p.m.