context("test-create_beast2_input_operators")
test_that("Multiple fixed_crown_ages, interface", {
input_filenames <- get_beautier_paths(c("anthus_aco.fas", "anthus_nd2.fas"))
ids <- get_alignment_ids(input_filenames)
testthat::expect_silent(
beautier:::create_beast2_input_operators(
site_models = create_jc69_site_models(ids = ids),
clock_models = create_strict_clock_models(ids = ids),
tree_priors = create_yule_tree_priors(ids = ids),
fixed_crown_ages = c(TRUE, TRUE)
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.