a few changes....

[ape.git] / R / CDF.birth.death.R

diff --git a/R/CDF.birth.death.R b/R/CDF.birth.death.R
index 3608a35f1d08b3bb1a63232cf54b25de1ef464bc..5fa088a9140edd69916ea00be76f7adcd90b21b6 100644 (file)
--- a/R/CDF.birth.death.R
+++ b/R/CDF.birth.death.R
@@ -468,7 +468,7 @@ bd.time <- function(phy, birth, death, BIRTH = NULL, DEATH = NULL,
         PAR <- matrix(NA, boot, np)
         i <- 1L
         while (i <= boot) {
-            cat("i =", i, "\n")
+            cat("\rDoing bootstrap no.", i, "\n")
             x <- sort(sample(x, replace = TRUE))
             o <- try(nlminb(ip, foo, control = list(trace = 0, eval.max = 500),
                             upper = upper, lower = lower))