powered by
Collect the normalized branching times from the stem age
get_norm_brts(phylogeny)
branching times, in time units before the present
a phylogeny of class 'phylo'
Richèl Bilderbeek
phylogeny <- ape::read.tree(text = "((a:2,b:2):1,c:3);") phylogeny$root.edge <- 2 # nolint ape variable name all(nLTT::get_branching_times(phylogeny) == c(5, 3, 2))
Run the code above in your browser using DataLab