tests/testthat/test-filter_genes.R

In ddiez/scmisc: Miscellaneus Tools for the Analysis of Single Cell Data

context("filter_genes")

x <- scmisc::sce
x <- filter_genes(x)

test_that("filter_genes works", {
  expect_equal(dim(x), c(392, 493))
})

x <- filter_genes(x, min.cells = 100)

test_that("filter_genes works", {
  expect_equal(dim(x), c(210, 493))
})

x <- filter_genes(x, min.count = 10)

test_that("filter_genes works", {
  expect_equal(dim(x), c(97, 493))
})