Nothing
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")
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.