tests/testthat/test-sample_cells.R

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

context("test-sample_cells")


x <- sample_cells(scmisc::sce, n = 20)

test_that("sample_cells works", {
  expect_equal(ncol(x), 20)
})

x <- cluster_cells(scmisc::sce, method = "kmeans", ncluster = 3)
y <- sample_cells(x, n = 20, group = "cluster")

test_that("sample_cells works", {
  expect_equal(ncol(y), 60)
})

y <- sample_cells(x, frac = .1, group = "cluster")

test_that("sample_cells works", {
  expect_equal(ncol(y), 49)
})