estimates <- parse_beast_tracelog_file(
get_tracerer_path("beast2_example_output.log")
)
tree_height_trace <- remove_burn_in(
estimates$TreeHeight,
burn_in_fraction = 0.1
)
# Values will be 0.453 and 1.816
calc_hpd_interval(tree_height_trace, proportion = 0.95)
Run the code above in your browser using DataLab