Nothing
#' @title Get times for nodes and tips
#' @description Produces branching and tip times for ultrametric and non-ultrametric trees
#' @note \code{nodeTimes} is essentially a re-written version of the \pkg{ape} \code{branching.times}.
#' @param phy An object of class \code{phylo} (see \pkg{ape}).
#' @return Returns a matrix corresponging the phy "edge" matrix showning internal and external node times
#' @author Mark Puttick, Emmanuel Paradis
#' @examples
#' ## Read in phylogeny from Thomas et al. (2009)
#' data(anolis.tree)
#' anolis.node.times <- nodeTimes(phy=anolis.tree)
#' @export
nodeTimes <- function(phy) {
phy <- reorder(phy)
depBranches <- node.depth.edgelength(phy)
all <- cbind(depBranches[phy$edge[,1]], depBranches[phy$edge[,2]])
return(max(depBranches) - all)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.