flip args

epinowcast · Oct 8, 2024 · 4bd6069 · 4bd6069
1 parent 79a12aa
commit 4bd6069
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/primary_censored_dist.R b/R/primary_censored_dist.R
@@ -286,7 +286,7 @@ primary_censored_cdf.pcens_pweibull_dunif <- function(
     t <- pmax(t, 0)
     scaled_t <- (t * inv_scale)^shape
     vapply(scaled_t, function(x) {
-      pracma::gammainc(x, 1 + inv_shape)["lowinc"]
+      pracma::gammainc(1 + inv_shape, x)["lowinc"]
     }, numeric(1))
   }