Hotfix: d handling

epinowcast · Sep 19, 2024 · fd12989 · fd12989
1 parent 7c336a0
commit fd12989
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/primary_censored_dist.R b/R/primary_censored_dist.R
@@ -96,7 +96,7 @@ primary_censored_cdf.default <- function(
 primary_censored_cdf.pcens_numeric <- function(
     object, q, pwindow, use_numeric = FALSE) {
   result <- vapply(q, function(d) {
-    if (d <= 0) {
+    if (d < 0) {
       return(0) # Return 0 for non-positive delays
     } else {
       integrand <- function(p) {