final commit for ape 3.0-8

[ape.git] / R / dbd.R

diff --git a/R/dbd.R b/R/dbd.R
index b6df41865cbb06313bce2df9946d320b5abea74f..b0beb7a4078af31a2ba1d9d77d956c11968a8d86 100644 (file)
--- 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) {