set.seed(1)
obj= sim_ClaDS( lambda_0=0.1,
mu_0=0.5,
sigma_lamb=0.7,
alpha_lamb=0.90,
condition="taxa",
taxa_stop = 20,
prune_extinct = TRUE)
tree = obj$tree
speciation_rates = obj$lamb[obj$rates]
extinction_rates = obj$mu[obj$rates]
par(mar=c(1,1,0,0))
plot_ClaDS_phylo(tree,speciation_rates)
plot_ClaDS_phylo(tree,speciation_rates, lwd = 4, log = FALSE)
Run the code above in your browser using DataLab