X-Git-Url: https://git.donarmstrong.com/?p=ape.git;a=blobdiff_plain;f=R%2FCDF.birth.death.R;h=5fa088a9140edd69916ea00be76f7adcd90b21b6;hp=3608a35f1d08b3bb1a63232cf54b25de1ef464bc;hb=50912ceb91f34227ae89432b6e6a8969a3a3f5f7;hpb=f91082164111e17be175283d9fe8335e89424d42

diff --git a/R/CDF.birth.death.R b/R/CDF.birth.death.R
index 3608a35..5fa088a 100644
--- 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))