Description Usage Arguments Value Author(s) Examples
Obtain the crown age of a phylony
1 | get_phylogeny_crown_age(phylogeny)
|
phylogeny |
The phylogeny to obtain the crown age of |
the age of the phylogeny
Richel Bilderbeek
1 2 3 4 5 6 7 8 9 | age <- 15
set.seed(42)
phylogeny <- PBD::pbd_sim(
c(0.2, 1, 0.2, 0.0, 0.0), age
)$tree
n_taxa <- length(phylogeny$tip.label)
testit::assert(n_taxa > 0)
crown_age <- get_phylogeny_crown_age(phylogeny)
testit::assert(all.equal(age, crown_age, tolerance = 0.001))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.