-## rtree.R (2007-12-22)
+## rtree.R (2008-01-08)
## Generates Random Trees
-## Copyright 2004-2007 Emmanuel Paradis
+## Copyright 2004-2008 Emmanuel Paradis
## This file is part of the R-package `ape'.
## See the file ../COPYING for licensing issues.
## to avoid crossings when converting with as.hclust:
read.tree(text = write.tree(phy))
}
+
+rmtree <- function(N, n, rooted = TRUE, tip.label = NULL, br = runif, ...)
+{
+ a <- replicate(N, rtree(n, rooted = rooted, tip.label = tip.label,
+ br = br, ...), simplify = FALSE)
+ class(a) <- "multiPhylo"
+ a
+}