R/method-MRCA.R

In GuangchuangYu/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, ...)
}