tests/testthat/test-keep_high_gene.R

In zijianni/SpotClean: SpotClean adjusts for spot swapping in spatial transcriptomics data

data(mbrain_raw)

mbrain_filter <- keepHighGene(mbrain_raw, return_matrix=TRUE)

test_that("Default parameters", {
    expect_true(nrow(mbrain_filter)==100)

})

test_that("Object class", {
    expect_s4_class(mbrain_filter, "dgCMatrix")
})

test_that("Top high gene cutoff", {
    expect_true(length(keepHighGene(mbrain_raw, top_high = 50, mean_cutoff = 1))==50)

})

test_that("Mean expression cutoff", {
    expect_true(length(keepHighGene(mbrain_raw, mean_cutoff = Inf))==11)
    expect_true(length(keepHighGene(mbrain_raw, mean_cutoff = 500))==14)
})