test_that("use", {
expect_true(
is_strict_clock_model(
create_strict_clock_model()
)
)
expect_true(
is_strict_clock_model(
create_strict_clock_model(
clock_rate_param = create_clock_rate_param(value = 3.14)
)
)
)
# Issue #139, Issue 139
expect_true(
is_strict_clock_model(
create_strict_clock_model(
rate_scaler_factor = 0.75
)
)
)
})
test_that("simplified interface converts", {
expect_true(
is_strict_clock_model(
create_strict_clock_model(
clock_rate_param = 3.14
)
)
)
expect_true(
is_strict_clock_model(
create_strict_clock_model(
clock_rate_param = "3.14"
)
)
)
})
test_that("abuse", {
expect_error(
create_strict_clock_model(clock_rate_param = NA),
"'clock_rate_param' must be a clock rate parameter"
)
expect_error(
create_strict_clock_model(clock_rate_distr = NA),
"'clock_rate_distr' must be a distribution"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.