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)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.