X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=man%2Fyule.time.Rd;h=a6574b0ba8b64ee2ec8c4e532d3b3b072a15908c;hb=8883719a9139685f26d4c0c4cb26872d5f6d0d96;hp=a5c268960a6477fbd8f5dad31b8bf53652dce6ba;hpb=48b6b6fe4e38ae122c339784213732935e9b5343;p=ape.git

diff --git a/man/yule.time.Rd b/man/yule.time.Rd
index a5c2689..a6574b0 100644
--- a/man/yule.time.Rd
+++ b/man/yule.time.Rd
@@ -60,7 +60,7 @@ birth.step <- function(l1, l2, Tcl) { # 2 rates with one break-point
     ans
 }
 ### ... and their primitives:
-BIRTH.logis <- function(a, b) log(exp(-a*t) + exp(b))/a + t
+BIRTH.logis <- function(t) log(exp(-a*t) + exp(b))/a + t
 BIRTH.step <- function(t)
 {
     if (t <= Tcl) return(t*l1)
@@ -70,7 +70,7 @@ data(bird.families)
 ### fit both models:
 yule.time(bird.families, birth.logis)
 yule.time(bird.families, birth.logis, BIRTH.logis) # same but faster
-yule.time(bird.families, birth.step)  # fails
+\dontrun{yule.time(bird.families, birth.step)}  # fails
 yule.time(bird.families, birth.step, BIRTH.step)
 }
 \keyword{models}