Speed-ups (shared PVI fit, clones once, case-control sampled deferred model); final scale 200 reps extending the draft (D51)

Co-Authored-By: Claude Opus 5.5 <[email protected]>
2026-10-27 09:31:03 -04:00
parent e1457ccc1e
commit cfc9da2c87
6 changed files with 288 additions and 65 deletions
@@ -15,7 +15,7 @@ par <- load_params(world, scenario)
 res <- rbindlist(parallel::mclapply(seq_len(reps), function(r) {
  rec <- simulate_records(par, rep = 1000L + r, n = n)
  rbindlist(lapply(c("naive", "landmark", "ccw", "seq"), function(d)
-    cbind(rep = r, run_design(rec, d, "V1_ignore", outcomes = c(male = "t_male", disease = "t_disease", nco1 = "t_nco1")))),
+    cbind(rep = r, run_designs(rec, d, "V1_ignore", outcomes = c(male = "t_male", disease = "t_disease", nco1 = "t_nco1")))),
    fill = TRUE)
 }, mc.cores = cores), fill = TRUE)