tests/testthat/test_makeDS.R

test_that("Check that example dds is generated correctly", {
  dds <- makeExampleDESeqDataSet_multifac(betaSD_condition = 3, betaSD_tissue = 1)
  
  expect_equal(names(colData(dds)), c("condition", "tissue"))
})
federicomarini/pcaExplorer documentation built on Dec. 21, 2024, 8:47 p.m.