context("init_site_models")
test_that("initialize JC69 site model", {
gamma_site_model <- create_gamma_site_model(
gamma_cat_count = 2,
gamma_shape_prior_distr = create_exp_distr()
)
id <- "a"
before <- list(create_jc69_site_model(gamma_site_model = gamma_site_model))
expect_true(is_jc69_site_model(before[[1]]))
expect_true(!are_init_site_models(before))
after <- init_site_models(before, ids = id)
expect_true(is_jc69_site_model(after[[1]]))
expect_true(are_init_site_models(after))
})
test_that("initialize HKY site model", {
gamma_site_model <- create_gamma_site_model(
gamma_cat_count = 2,
gamma_shape_prior_distr = create_exp_distr()
)
id <- "a"
before <- list(create_hky_site_model(gamma_site_model = gamma_site_model))
expect_true(is_hky_site_model(before[[1]]))
expect_true(!are_init_site_models(before))
after <- init_site_models(before, ids = id)
expect_true(is_hky_site_model(after[[1]]))
expect_true(are_init_site_models(after))
})
test_that("initialize TN93 site model", {
gamma_site_model <- create_gamma_site_model(
gamma_cat_count = 2,
gamma_shape_prior_distr = create_exp_distr()
)
id <- "a"
before <- list(create_tn93_site_model(gamma_site_model = gamma_site_model))
expect_true(is_tn93_site_model(before[[1]]))
expect_true(!are_init_site_models(before))
after <- init_site_models(before, ids = id)
expect_true(is_tn93_site_model(after[[1]]))
expect_true(are_init_site_models(after))
})
test_that("initialize GTR site model", {
gamma_site_model <- create_gamma_site_model(
gamma_cat_count = 2,
gamma_shape_prior_distr = create_exp_distr()
)
id <- "a"
before <- list(create_gtr_site_model(gamma_site_model = gamma_site_model))
expect_true(is_gtr_site_model(before[[1]]))
expect_true(!are_init_site_models(before))
after <- init_site_models(before, ids = id)
expect_true(is_gtr_site_model(after[[1]]))
expect_true(are_init_site_models(after))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.