Hotfix: Swap D for upper_interval when D is > than upper_interval

epinowcast · Sep 6, 2024 · 74c2c8c · 74c2c8c
1 parent 2d8f339
commit 74c2c8c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/stan/primary_censored_dist.stan b/inst/stan/primary_censored_dist.stan
@@ -402,7 +402,7 @@ vector primary_censored_sone_lpmf_vectorized(
         log_normalizer = 0; // No normalization needed for infinite D
       } else {
         log_normalizer = primary_censored_dist_lcdf(
-          upper_interval | dist_id, params, pwindow, positive_infinity(),
+          D | dist_id, params, pwindow, positive_infinity(),
           primary_dist_id, primary_params
         );
       }