# generate a random full tree, including all extinct & extant tips
tree = generate_random_tree(list(birth_rate_intercept=1),
max_tips=1000, coalescent=FALSE)$tree
# compute node densities, as an estimate for the speciation rate
densities = clade_densities(tree, Nbins=10, normalize=TRUE)
# plot node densities
plot(densities$ages, densities$node_densities, type="l", xlab="age", ylab="node density")
Run the code above in your browser using DataLab