-## read.nexus.R (2011-02-28)
+## read.nexus.R (2011-03-18)
## Read Tree File in Nexus Format
.treeBuildWithTokens <- function(x)
{
- phy <- .Call("treeBuildWithTokens", x, PACKAGE = "apex")
+ phy <- .Call("treeBuildWithTokens", x, PACKAGE = "ape")
dim(phy[[1]]) <- c(length(phy[[1]])/2, 2)
nms <- c("edge", "edge.length", "Nnode", "node.label", "root.edge")
if (length(phy) == 4) nms <- nms[-5]