tests/testthat/test-scDD-simulate.R

In Oshlack/splatter: 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, verbose = FALSE)))
})