test_that("use", {
ns <- parse_beast2_output_to_ns(
output = create_test_ns_output()
)
expect_equal(ns$marg_log_lik, -141, tolerance = 0.2)
expect_equal(ns$marg_log_lik_sd, 1.60, tolerance = 0.5)
expect_equal(ns$ess, 5.49, tolerance = 0.2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.