tests/testthat/test-normaliseData.R

test_that("normalisation on a data frame works", {

  res <-
    normaliseData(mtcars, getLambda(mtcars, parallel = FALSE))


  expect_equal(dim(res), c(32, 11))

  expect_equal(round(sum(res)), 15327)

})
kcha193/normalr documentation built on Dec. 11, 2021, 1:54 p.m.