tests/testthat/test-computeZScore.R

# computeZScore.R
library(singleCellTK)
context("Testing computeZScore.R")
data(scExample, package = "singleCellTK")

test_that(desc = "Testing computeZScore.R", {
  scaledMatrix <- computeZScore(assay(sce, "counts"))
  
  testthat::expect_equal(nrow(scaledMatrix), nrow(sce))
  testthat::expect_equal(ncol(scaledMatrix), ncol(sce))
})
compbiomed/singleCellTK documentation built on May 8, 2024, 6:58 p.m.