tests/testthat/test_findOutsideValues.R

In uds-helms/BEclear: Correction of batch effects in DNA methylation data

testthat::context("Identification of values below 0 or above 1")

testthat::test_that("Matrix with values above and below", {
  res1 <- findOutsideValues(matrix(c(2, 0.5, 0.4, 0.2, -1, -0.1), ncol = 2))

  testthat::expect_equal(as.numeric(res1[1, ]), c(1, 1, 1, 2))
  testthat::expect_equal(as.numeric(res1[2, ]), c(0, 2, 2, -1.0))
  testthat::expect_equal(as.numeric(res1[3, ]), c(0, 3, 2, -0.1))
})