context("init_gamma_site_model")
test_that("use", {
gamma_site_model <- create_gamma_site_model(
gamma_cat_count = 2,
gamma_shape_prior_distr = create_one_div_x_distr(id = NA)
)
expect_true(!is_init_gamma_site_model(gamma_site_model))
gamma_site_model <- init_gamma_site_model(gamma_site_model)
testthat::expect_true(is_init_gamma_site_model(gamma_site_model))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.