data("Caprimulgidae_ClaDS2")
# plot the mcmc chains
plot_ClaDS_chains(Caprimulgidae_ClaDS2$sampler)
# \donttest{
# extract the Maxima A Posteriori for each parameter
maps = getMAPS_ClaDS(Caprimulgidae_ClaDS2$sampler, thin = 1)
print(paste0("sigma = ", maps[1], " ; alpha = ",
maps[2], " ; epsilon = ", maps[3], " ; l_0 = ", maps[4] ))
# plot the infered branch specific speciation rates
plot_ClaDS_phylo(Caprimulgidae_ClaDS2$tree, maps[-(1:4)])
# }
Run the code above in your browser using DataLab