tests/testthat/test_incidence.R

In rprev: Estimating Disease Prevalence from Registry Data

library(rprev)
context('Incidence')
data(prevsim)

test_that("mean_incidence_rate returns same values as before", {
    rawinc <- c(50, 42, 60, 70)
    expect_equal(mean_incidence_rate(rawinc, population_size=35e5), list(absolute=55.5,
                                                                         per100K=1.59,
                                                                         per100K.lower=1.48,
                                                                         per100K.upper=1.69))
})

test_that("mean_incidence_rate returns a list", {
    rawinc <- c(50, 42, 60, 70, 80)
    expect_match(typeof(mean_incidence_rate(rawinc, population_size=35e5)), 'list')
})

test_that("mean_incidence_rate returns no NAs", {
    rawinc <- c(50, 42, 60, 70, 80)
    expect_equal(any(is.na(mean_incidence_rate(rawinc, population_size=35e5))), FALSE)
})