estimates_all <- parse_beast_tracelog_file(
get_tracerer_path("beast2_example_output.log")
)
estimates <- remove_burn_ins(estimates_all, burn_in_fraction = 0.1)
calc_summary_stats_trace(
estimates$posterior,
sample_interval = 1000
)
Run the code above in your browser using DataLab