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)))
})

Try the CeTF package in your browser

Any scripts or data that you put into this service are public.

CeTF documentation built on Nov. 25, 2020, 2 a.m.