R/method-MRCA.R

In treeio: Base Classes and Functions for Phylogenetic Tree Input and Output

##' @importFrom tidytree MRCA
##' @importFrom tidytree as_tibble
##' @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, ...)
}