tests/testthat/test-calc_summary_measures.R

In EpiNow2: Estimate Real-Time Case Counts and Time-Varying Epidemiological Parameters

samples <- data.frame(value = 1:10, type = "car")

test_that("calc_summary_measures works as expected with default arguments", {
  expect_snapshot_output(calc_summary_measures(samples))
})

test_that("calc_CrI works as expected when grouping", {
  expect_snapshot_output(calc_summary_measures(samples, summarise_by = "type"))
})

test_that("calc_CrI works as expected when given a custom CrI list", {
  expect_snapshot_output(
    calc_summary_measures(samples, CrIs = c(0.1, 0.4, 0.95))
  )
})