tests/testthat/test-scDD-simulate.R

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)))
})

Try the splatter package in your browser

Any scripts or data that you put into this service are public.

splatter documentation built on Dec. 3, 2020, 2:01 a.m.