tests/testthat/test-parse_beast_log.R

In beast-dev/RBeast: Create BEAST and BEAST2 input files and parse their output

context("parse_beast_log")

test_that("parse_beast_log: use", {

  filename <- system.file(
    "extdata", "beast2_example_output.log", package = "RBeast"
  )

  estimates <- RBeast::parse_beast_log(
    filename = filename
  )
  expected_names <- c(
   "Sample", "posterior", "likelihood",
   "prior", "treeLikelihood", "TreeHeight",
   "BirthDeath", "birthRate2", "relativeDeathRate2"
  )
  testthat::expect_equal(names(estimates), expected_names)

})