-## read.nexus.R (2012-02-09)
+## read.nexus.R (2012-09-28)
## Read Tree File in Nexus Format
names(phy) <- nms
if (all(phy$node.label == "")) phy$node.label <- NULL
class(phy) <- "phylo"
+ attr(phy, "order") <- "cladewise"
phy
}
if (all(obj$node.label == "NA")) NULL
else gsub("^NA", "", obj$node.label)
class(obj) <- "phylo"
+ attr(obj, "order") <- "cladewise"
obj
}