tests/testthat/test_normExp.R

context("normExp")

data('simCounts')
tpm <- apply(simCounts, 2, function(x) {
  (1e+06 * x)/sum(x)
})


test_that("normExp", {
  expect_true(is.matrix(normExp(tpm)))
})
cbiagii/pcitRif documentation built on Feb. 5, 2023, 9:03 p.m.