D57: run-time trims (V3 skipped where physician plays no role, NCE without V3, landmark_m5 under V1 only)
Co-Authored-By: Claude Opus 5.5 <[email protected]>
This commit is contained in:
@@ -25,8 +25,11 @@ one_job <- function(i) {
|
||||
rbind(r, copy(r)[, `:=`(variant = "V2_cluster", se = se_cluster)]) else r
|
||||
nce_out <- c(limb = "t_limb", male = "t_male", disease = "t_disease")
|
||||
for (v in g$variants) {
|
||||
out[[length(out) + 1]] <- with_v2(run_designs(rec, unlist(g$designs), v))[, analysis := "main"]
|
||||
if (isTRUE(g$nce))
|
||||
if (j$world %in% unlist(g$skip_variant[[v]])) next
|
||||
des <- unlist(g$designs)
|
||||
if (v != "V1_ignore") des <- setdiff(des, unlist(g$v1_only_designs))
|
||||
out[[length(out) + 1]] <- with_v2(run_designs(rec, des, v))[, analysis := "main"]
|
||||
if (isTRUE(g$nce) && (is.null(g$nce_variants) || v %in% unlist(g$nce_variants)))
|
||||
out[[length(out) + 1]] <- with_v2(run_designs(nce_records(rec), c("landmark", "ccw"), v, nce_out))[, analysis := "nce"]
|
||||
}
|
||||
# unadjusted NCE (supplement, D36), V1/V2 only
|
||||
|
||||
Reference in New Issue
Block a user