X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fdbd.R;h=b0beb7a4078af31a2ba1d9d77d956c11968a8d86;hb=HEAD;hp=b6df41865cbb06313bce2df9946d320b5abea74f;hpb=e9f75370481c37eb9d3d811ce7494f818b423136;p=ape.git

diff --git a/R/dbd.R b/R/dbd.R
index b6df418..b0beb7a 100644
--- a/R/dbd.R
+++ b/R/dbd.R
@@ -1,4 +1,4 @@
-## dbd.R (2012-02-01)
+## dbd.R (2012-09-14)
 
 ##   Probability Density Under Birth--Death Models
 
@@ -27,12 +27,8 @@ dbd <- function(x, lambda, mu, t, conditional = FALSE, log = FALSE)
         mu <- mu[1]
         warning("only the first value of 'mu' was considered")
     }
-    if (length(t) > 1) {
-        t <- t[1]
-        warning("only the first value of 't' was considered")
-    }
 
-    if (mu == 0) return(ryule(x, lambda, t, log))
+    if (mu == 0) return(dyule(x, lambda, t, log))
 
     ## for the unconditional case, we have to consider x=0 separately:
     if (!conditional) {