fix issue with log in dSDT

venpopov · Feb 28, 2024 · eeac04e · eeac04e
1 parent 1b9cfeb
commit eeac04e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/distributions.R b/R/distributions.R
@@ -660,7 +660,7 @@ dSDT <- function(x, size, dprime = 1, crit = dprime/2, stimulus = 1, dist_noise
     probs <- stats::plogis(acts)
   }
 
-  density <- stats::dbinom(x, size = size, prob = probs, log = log)
+  density <- stats::dbinom(x, size = size, prob = probs, log = TRUE)
 
   if (!log) {
     return(exp(density))