trini_mod
ggtopo(trini_mod)
if (FALSE) {
# Warning: the run below can take quite a long time!
# (about 15 min with 4 cores at 3.3 Ghz).
run <- run_mcmc(trini_mod, iter = 500, chains = 4, cores = 4)
}
Run the code above in your browser using DataLab