tests/testthat/test-sparseDCEstimate.R

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))
})
Granoia/splatter-mod documentation built on May 28, 2019, 12:31 a.m.