tests/testthat/test-medianCtr.R

test_that("median centering works", {
  set.seed(1)
  x <- matrix(rnorm(200), nrow = 10)
  expect_error(medianCtr(x), NA)
})

test_that("error thrown if input is NA", {
  expect_error(medianCtr(NA))
})
TalhoukLab/biostatUtil documentation built on April 14, 2025, 4:15 a.m.