R/method-MRCA.R

In tidytree: A Tidy Tool for Phylogenetic Tree Data Manipulation

#' @method MRCA phylo
#' @export
MRCA.phylo <- function(.data, .node1, .node2 = NULL, ...) {
    MRCA(as_tibble(.data), .node1, .node2, ...)[["node"]]
}

#' @method MRCA treedata
#' @export
MRCA.treedata <- function(.data, .node1, .node2 = NULL, ...) {
    MRCA.phylo(as.phylo(.data), .node1, .node2, ...)
}