D56: limb MALE (CLTI, major amputation, open bypass) as primary outcome; MALE incl. repeat revascularization to supplement

Co-Authored-By: Claude Opus 5.5 <[email protected]>
2026-10-28 16:39:59 -04:00
parent d369a16208
commit 3aa6c1c5b3
12 changed files with 37 additions and 33 deletions
@@ -60,7 +60,7 @@ trial_policy <- function(trial, assign = NULL) {

 #' Run one simulated trial and analyse it: ITT (by assignment, unadjusted) and naive
 #' as-treated (PVI in the window vs not, ignoring assignment).
-run_rct <- function(par, design = "realistic", rep = 1L, outcomes = c(male = "t_male", disease = "t_disease"),
+run_rct <- function(par, design = "realistic", rep = 1L, outcomes = c(limb = "t_limb", male = "t_male", disease = "t_disease"),
                    source_n = 60000L) {
  seed <- replicate_seed(par$world, paste0(par$scenario, "|rct|", design), rep)
  pop <- make_population(par, n = source_n, seed = seed)