tests/testthat/test-phenoEstimate.R

context("phenoEstimate")

library(scater)
set.seed(1)
counts <- counts(mockSCE())

test_that("phenoEstimate works", {
    skip_if_not_installed("phenopath")
    params <- phenoEstimate(counts)
    expect_true(validObject(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.