tests/testthat/test-scDD-simulate.R

In Granoia/splatter-mod: Simple Simulation of Single-cell RNA Sequencing Data

context("scDD simulation")

test_that("scDD simulation output is valid", {
    skip_if_not_installed("scDD")
    params <- newSCDDParams(nDE = 5, nDP = 5, nDM = 5, nDB = 5, nEE = 5,
                            nEP = 5)
    expect_true(validObject(scDDSimulate(params)))
})