tests/testthat/test_lifetable_corrected.R

In mortAAR: Analysis of Archaeological Mortality Data

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

test_that("lt.correction produces the right output", {
  sl <- life.table(schleswig_ma[c("a", "Dx")])
  expect_snapshot_value(
    round_list_of_dfs(lt.correction(sl)),
    style = c("json2")
  )
  expect_snapshot_value(
    round_list_of_dfs(lt.correction(sl, agecor = FALSE)),
    style = c("json2")
  )
  od <- life.table(list(
    "sl1" = schleswig_ma[c("a", "Dx")],
    "sl2" = schleswig_ma[c("a", "Dx")]
  ))
  expect_snapshot_value(
    lapply(lt.correction(od), round_list_of_dfs),
    style = c("json2")
  )
})