X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Frtree.R;h=030b47e77885a70a4cc1b362d461878133ce8dc5;hb=8e2e1ceb81f455bcb7b184d114913295d67b93c4;hp=6829b02d294be46753894cea6f074f5e09bfbd3d;hpb=bd53d983d5daf867bc50b00ace48d017506599ef;p=ape.git

diff --git a/R/rtree.R b/R/rtree.R
index 6829b02..030b47e 100644
--- a/R/rtree.R
+++ b/R/rtree.R
@@ -1,4 +1,4 @@
-## rtree.R (2000-05-13)
+## rtree.R (2009-11-03)
 
 ##   Generates Random Trees
 
@@ -94,7 +94,10 @@ rtree <- function(n, rooted = TRUE, tip.label = NULL, br = runif, ...)
     phy$tip.label <-
       if (is.null(tip.label)) paste("t", sample(n), sep = "")
       else sample(tip.label)
-    if (is.function(br)) phy$edge.length <- br(nbr, ...)
+    if (!is.null(br)) {
+        phy$edge.length <-
+            if (is.function(br)) br(nbr, ...) else rep(br, length.out = nbr)
+    }
     phy$Nnode <- n - 2L + rooted
     class(phy) <- "phylo"
     phy
@@ -107,7 +110,7 @@ rcoal <- function(n, tip.label = NULL, br = "coalescent", ...)
     edge <- matrix(NA, nbr, 2)
     ## coalescence times by default:
     x <- if (is.character(br)) 2*rexp(n - 1)/(as.double(n:2) * as.double((n - 1):1))
-    else br(n - 1, ...)
+    else if (is.numeric(br)) rep(br, length.out = n - 1) else br(n - 1, ...)
     if (n == 2) {
         edge[] <- c(3L, 3L, 1:2)
         edge.length <- rep(x, 2)