library("TreeTools", quietly = TRUE)
trees <- list(
seed_00 = as.phylo(1, 8),
ratch1_01 = as.phylo(2, 8),
ratch1_02 = as.phylo(3, 8),
ratch4_44 = as.phylo(4, 8),
final_99 = as.phylo(5, 8)
)
attr(WhenFirstHit(trees), "firstHit")
Run the code above in your browser using DataLab