tests/testthat/test_representativity.R

In ISAAKiel/mortAAR: Analysis of Archaeological Mortality Data

test_that("lt.representativity fails for wrong input", {
  expect_snapshot_error(lt.representativity(1))
})

test_that("lt.representativity produces the right output", {
  sl <- life.table(schleswig_ma[c("a", "Dx")])
  expect_snapshot_value(
    lt.representativity(sl),
    style = c("json2")
  )
  od <- life.table(list(
    "corpus mandibulae" = odagsen_cm[c("a", "Dx")],
    "margo orbitalis" = odagsen_mo[c("a", "Dx")]
  ))
  expect_snapshot_value(
    lt.representativity(od),
    style = c("json2")
  )
})