tests/testthat/test_BuildupIndex.r

test_that("BuildupIndex", {
  expect_equal(buildup_index(0, 0), 0)
  expect_equal(buildup_index(0, 100), 0)
  expect_equal(buildup_index(-1, 0), 0)
  checkData('BuildupIndex',
            buildup_index,
            list(data.table(dmc=DMC),
                 data.table(dc=DC)))
})
jordan-evens-nrcan/cffdrs documentation built on Sept. 19, 2024, 6:23 a.m.