tests/testthat/test-decontX.R

In singleCellTK: Comprehensive and Interactive Analysis of Single Cell RNA-Seq Data

# decontamination algorithms
library(singleCellTK)
context("Testing decontamination algorithms")
data(scExample, package = "singleCellTK")
sce <- subsetSCECols(sce, colData = "type != 'EmptyDroplet'")

test_that(desc = "Testing runDecontX", {
        sceres <- runDecontX(sce)
        expect_equal(length(colData(sceres)$decontX_clusters),ncol(sce))
        expect_equal(class(colData(sceres)$decontX_contamination), "numeric")
})