y <- 1:length(x)
cbind(x, y)
}
- if if (inherits(phy, "phylo")) { # if a tree of class "phylo"
+ if (inherits(phy, "phylo")) { # if a tree of class "phylo"
TREES <- list(ltt.xy(phy))
names(TREES) <- deparse(substitute(phy))
} else { # a list of trees