context("is_posterior")
test_that("detect posterior", {
trees_filename <- get_tracerer_path("beast2_example_output.trees")
testit::assert(file.exists(trees_filename))
tracelog_filename <- get_tracerer_path("beast2_example_output.log")
testit::assert(file.exists(tracelog_filename))
posterior <- tracerer::parse_beast_posterior(
trees_filename = trees_filename,
tracelog_filename = tracelog_filename
)
names(posterior)
testthat::expect_true(is_posterior(posterior))
})
test_that("detect non-posteriors", {
testthat::expect_false(
tracerer::is_posterior("nonsense")
)
testthat::expect_false(
tracerer::is_posterior(list("estimates" = NA, "nonsense" = NA))
)
testthat::expect_false(
tracerer::is_posterior(list("_trees" = NA, "nonsense" = NA))
)
testthat::expect_true(
tracerer::is_posterior(list("_trees" = NA, "estimates" = NA))
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.