fix dNmixture_BBP_s

nimble-dev · Jun 23, 2024 · e58ce4e · e58ce4e
1 parent 31cef5d
commit e58ce4e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/dBetaBinom.R b/R/dBetaBinom.R
@@ -115,7 +115,7 @@ dBetaBinom_s <- nimbleFunction(
     return(exp(logprob))
     returnType(double(0))
   },
-  buildDerivs = list(run=list())
+  buildDerivs = list(run=list(ignore = 'i'))
 )
 
 #' @rdname dBetaBinom

diff --git a/R/dNmixtureAD.R b/R/dNmixtureAD.R
@@ -289,7 +289,7 @@ dNmixtureAD_BBP_s <- nimbleFunction(
     #Clen <- ADbreak(len)
     Nmin <- ADbreak(max( max(x), Nmin )) ## set Nmin to at least the largest x
     logProb <- dNmixture_BBP_steps(x, beta-x, lambda, s, Nmin, Nmax,
-                                   dBetaBinom_v(x, Nmin, alpha, beta, len = len, log = TRUE))
+                                   dBetaBinom_s(x, Nmin, alpha, beta, len = len, log = TRUE))
     if (log) return(logProb)
     else return(exp(logProb))
     returnType(double())