D55: EHR/registry-like world (noisy severity), non-random trial consent, trial analyses at 12/24/60 months

Co-Authored-By: Claude Opus 5.5 <[email protected]>
2026-10-28 16:26:01 -04:00
parent 307f75b63e
commit d369a16208
8 changed files with 72 additions and 25 deletions
@@ -32,6 +32,8 @@ make_records <- function(pop, course, par) {
  idx <- cbind(id, t + 1L)
  if (identical(ms$severity, "exact")) {
    sev <- course$z[idx]
+  } else if (identical(ms$severity, "noisy")) {
+    sev <- course$z[idx] + rnorm(length(id), 0, ms$noise_sd)   # EHR/registry: measured with error
  } else {
    w <- ms$proxy_window
    cs <- t(apply(course$counts, 1, function(x) { x[is.na(x)] <- 0L; cumsum(x) }))