tests/testthat/test-normalizeCoProDat.R

test_that("normalizeCoProDat", {
  df <- tibble(C = rep(1, 10), U = rep(1, 10)) %>% setDT
  cFactor <- 0.151; uFactor <- 0.296
  normalizeCoProData(df)
  expect_equal(c( df$C, df$U), c(rep(cFactor, 10), rep(uFactor, 10)))
})
Timothy-Barry/coproanalysis documentation built on Feb. 12, 2020, 7:33 a.m.