proposed change

3 weeks ago · 52f30367c6
parent d753db81c7
commit 52f30367c6
1 changed files with 1 additions and 1 deletions
--- a/r-analysis/EffectsOfEnrollmentDelay.qmd
+++ b/r-analysis/EffectsOfEnrollmentDelay.qmd
@ -803,7 +803,7 @@ pddf_ib <- data.frame(extract(generated_ib, pars="predicted_difference")$predict
    pivot_longer(X1:X168) #CHANGE_NOTE: moved from X169 to X168

 pddf_ib["entry_idx"] <- as.numeric(gsub("\\D","",pddf_ib$name))
-pddf_ib["category"] <-  sapply(pddf_ib$entry_idx, function(i) df$category_id[i])
+pddf_ib["category"] <-  sapply(pddf_ib$entry_idx, function(i) counterfact_delay$llx[i])
 pddf_ib["category_name"] <- sapply(
    pddf_ib$category, 
    function(i) category_names[i]