tests/testthat/test-desc-inc.R

test_that("Inc works", {
  testdf <- data.frame(cases = rep(1, 5), pop = 10)
  expect_identical(desc_Inc(testdf, p = 1), 0.5)
  expect_identical(desc_Inc(testdf, p = 100), 50)
})

Try the epidesc package in your browser

Any scripts or data that you put into this service are public.

epidesc documentation built on Aug. 8, 2026, 1:06 a.m.