X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fread.nexus.R;fp=R%2Fread.nexus.R;h=2f4177e5aed51ebab7d48969b6fda7e7db86b421;hb=b9e04a6e6af3beda74b916eda00b42ac38875563;hp=0268e6833a448853d78822c12ef9e8bbe4cb0904;hpb=22bfb51d0260544b61b4bdfbd8e039d52b540617;p=ape.git

diff --git a/R/read.nexus.R b/R/read.nexus.R
index 0268e68..2f4177e 100644
--- a/R/read.nexus.R
+++ b/R/read.nexus.R
@@ -1,4 +1,4 @@
-## read.nexus.R (2012-02-09)
+## read.nexus.R (2012-09-28)
 
 ##   Read Tree File in Nexus Format
 
@@ -16,6 +16,7 @@
     names(phy) <- nms
     if (all(phy$node.label == "")) phy$node.label <- NULL
     class(phy) <- "phylo"
+    attr(phy, "order") <- "cladewise"
     phy
 }
 
@@ -97,6 +98,7 @@ clado.build <- function(tp)
         if (all(obj$node.label == "NA")) NULL
         else gsub("^NA", "", obj$node.label)
     class(obj) <- "phylo"
+    attr(obj, "order") <- "cladewise"
     obj
 }