Update R/inc_prop.R

Co-authored-by: Daniel Sabanes Bove <[email protected]>
openpharma · Feb 7, 2024 · 9d59810 · 9d59810
1 parent 07252a7
commit 9d59810
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/inc_prop.R b/R/inc_prop.R
@@ -37,7 +37,7 @@ inc_prop <- function(data,
   assert_true(tau > 0)
 
   n <- nrow(data)
-  ae <- nrow(data[data$type_of_event == 1 & data$time_to_event <= tau, ]) / n
+  ae <- sum(data$type_of_event == 1 & data$time_to_event <= tau) / n
   ae_prob_var <- ae * (1 - ae) / n
 
   c("ae_prob" = ae, "ae_prob_var" = ae_prob_var)