context("is_init_clock_model")
test_that("on nonsense", {
expect_false(
is_init_clock_model(
"nonsense"
)
)
})
test_that("strict clock model", {
expect_true(
is_init_clock_model(
create_strict_clock_model(
clock_rate_param = create_clock_rate_param(id = "OK"),
clock_rate_distr = create_uniform_distr(id = "OK")
)
)
)
expect_false(
is_init_clock_model(
create_strict_clock_model(
clock_rate_param = create_clock_rate_param(id = NA),
clock_rate_distr = create_uniform_distr(id = "OK")
)
)
)
expect_false(
is_init_clock_model(
create_strict_clock_model(
clock_rate_param = create_clock_rate_param(id = "OK"),
clock_rate_distr = create_uniform_distr(id = NA)
)
)
)
})
test_that("RLN clock model", {
expect_true(
is_init_clock_model(
create_rln_clock_model(
mean_rate_prior_distr = create_uniform_distr(id = 1),
ucldstdev_distr = create_uniform_distr(id = 2),
mparam_id = 2,
dimension = 42
)
)
)
expect_false(
is_init_clock_model(
create_rln_clock_model(
ucldstdev_distr = create_gamma_distr(
id = 1,
alpha = create_alpha_param(id = NA),
beta = create_beta_param(id = 1)
),
mparam_id = 2,
dimension = 42
)
)
)
expect_false(
is_init_clock_model(
create_rln_clock_model(
ucldstdev_distr = create_gamma_distr(
id = 1,
alpha = create_alpha_param(id = 1),
beta = create_beta_param(id = NA)
),
mparam_id = 2,
dimension = 42
)
)
)
expect_false(
is_init_clock_model(
create_rln_clock_model(
ucldstdev_distr = create_uniform_distr(id = NA),
mparam_id = 2,
dimension = 42
)
)
)
expect_false(
is_init_clock_model(
create_rln_clock_model(
ucldstdev_distr = create_uniform_distr(id = 1),
mparam_id = NA,
dimension = 42
)
)
)
expect_false(
is_init_clock_model(
create_rln_clock_model(
ucldstdev_distr = create_uniform_distr(id = 1),
mparam_id = 2,
dimension = NA
)
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.