tests/testthat/test-sparseDCEstimate.R

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

context("sparseDCEstimate")

library(scater)
data("sc_example_counts")

test_that("sparseDCEstimate works", {
    skip_if_not_installed("SparseDC")
    set.seed(1)
    conditions <- sample(1:2, ncol(sc_example_counts), replace = TRUE)
    params <- sparseDCEstimate(sc_example_counts, conditions,
                               nclusters = 3)
    expect_true(validObject(params))
})