examples/simulations/NELSI_RCodeOnly/get.internal.branch.length.R

get.internal.branch.length <- function(tr){
    internal_branches <- which(tr$edge[, 2] %in% tr$edge[, 1])
    return(tr$edge.length[internal_branches])
}
josephwb/chronosCI documentation built on Jan. 30, 2023, 5:34 a.m.