R/get.oldest.branch.length.R

Defines functions get.oldest.branch.length

get.oldest.branch.length <- function(tr){
    root_node <- tr$edge[!(tr$edge[, 1] %in% tr$edge[, 2]), 1][1]
    min(tr$edge.length[tr$edge[, 1] == root_node])
}
sebastianduchene/NELSI documentation built on Sept. 5, 2024, 3:08 a.m.