X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Frtree.R;fp=R%2Frtree.R;h=eb00b60c087212a8905657ac5a6aa40b3fb5618c;hb=b9e04a6e6af3beda74b916eda00b42ac38875563;hp=0df359677a0a78678e6b7b8dfe59c8a38d68a345;hpb=22bfb51d0260544b61b4bdfbd8e039d52b540617;p=ape.git

diff --git a/R/rtree.R b/R/rtree.R
index 0df3596..eb00b60 100644
--- a/R/rtree.R
+++ b/R/rtree.R
@@ -1,4 +1,4 @@
-## rtree.R (2012-02-09)
+## rtree.R (2012-09-14)
 
 ##   Generates Trees
 
@@ -100,6 +100,7 @@ rtree <- function(n, rooted = TRUE, tip.label = NULL, br = runif, ...)
     }
     phy$Nnode <- n - 2L + rooted
     class(phy) <- "phylo"
+    attr(phy, "order") <- "cladewise"
     phy
 }