R/get.deepest.br.length.R

Defines functions get.deepest.br.length

get.deepest.br.length <- function(tr){
  root <- tr$edge[!tr$edge[, 1] %in% tr$edge[, 2], 1][1]
  descending.branches <- tr$edge.length[tr$edge[, 1] == root]
  sum(descending.branches)
}
sebastianduchene/NELSI documentation built on Sept. 5, 2024, 3:08 a.m.