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
@@ -174,14 +174,14 @@ restrict_variant <- function(rec, variant) {
 #' Run one design under one physician variant for several outcomes.
 #' Returns one row per outcome (and contrast), with the SE that the variant reports:
 #' patient-level for V1, physician-cluster-robust for V2-V4.
-run_design <- function(rec, design, variant, outcomes = c(male = "t_male", disease = "t_disease",
+run_design <- function(rec, design, variant, outcomes = c(limb = "t_limb", male = "t_male", disease = "t_disease",
                                                           nco1 = "t_nco1", nco2 = "t_nco2")) {
  run_designs(rec, design, variant, outcomes)
 }

 #' Several designs under one variant, sharing the PVI fit between CCW and sequential
 #' trials (the sequential propensity score is the window part of the same model).
-run_designs <- function(rec, designs, variant, outcomes = c(male = "t_male", disease = "t_disease",
+run_designs <- function(rec, designs, variant, outcomes = c(limb = "t_limb", male = "t_male", disease = "t_disease",
                                                             nco1 = "t_nco1", nco2 = "t_nco2")) {
  rec <- restrict_variant(rec, variant)
  need <- intersect(designs, c("ccw", "seq"))