R/root1.r

In shipunov: Miscellaneous Functions from Alexey Shipunov

Defines functions Root1

Documented in Root1

Root1 <- function(phy, outgroup, select=1, ...) {
res <- try(ape::root(phy, outgroup, ...))
if (inherits(res, "try-error")) {
 res <- ape::root(phy, outgroup[select], ...)
 }
res
}

Try the shipunov package in your browser