tests/testthat/test-get_coord.R

context("test-get_coord")

x <- scmisc::sce
x <- reduce_dim(x, dims = 10)
y <- get_coord(x, "pca", add.cols = FALSE)

test_that("get_coord works", {
  expect_equal(dim(y), c(493, 2))
})
ddiez/scmisc documentation built on July 21, 2024, 11:35 a.m.