test_that("as_hts_inla works", {
hts_form <- pr ~ avg_lower_age + hts(who_subregion, country)
expect_identical(
class(as_hts_inla(hts_example_model,
pr ~ avg_lower_age + hts(who_subregion, country))),
c("hts_inla", "bru", "iinla", "inla")
#class(as_hts_inla("thing", hts_form)),
#c("hts_inla", "list")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.