tests/testthat/test-normalize.R

In acidgenomics/r-acidsinglecell: Acid Genomics Single Cell Experiment

skip_if_not_installed("scuttle")

test_that("SCE", {
    object <- sce_seurat
    object <- normalize(object)
    expect_s4_class(object, "SingleCellExperiment")
    expect_s4_class(logcounts(object), "Matrix")
    expect_true(is.numeric(sizeFactors(object)))
})