estimates_all <- parse_beast_tracelog_file(
get_tracerer_path("beast2_example_output.log")
)
estimates <- remove_burn_ins(estimates_all, burn_in_fraction = 0.1)
# From a single variable's trace
calc_summary_stats(
estimates$posterior,
sample_interval = 1000
)
# From all variables' traces
calc_summary_stats(
estimates,
sample_interval = 1000
)
Run the code above in your browser using DataLab