fixed issue with death in per protocol gose

imputation-report.Rmd

@@ -274,14 +274,14 @@ tbl_final_imputations <- readr::read_csv(
         by = "gupi"
     ) %>% 
     mutate(
+        # gose_map_imputed is only 1 when we know that the individual died before
+        # 6 months, i.e. in these cases the per-protocol gose shoul also be 1
+        gose_per_protocol = ifelse(gose_map_imputed == "1", "1", gose_per_protocol),
         gose_map_per_protocol_combined = ifelse(
             is.na(gose_per_protocol), 
             gose_map_imputed, 
             gose_per_protocol
-        ),
-        # gose_map_imputed is only 1 when we know that the individual died before
-        # 6 months, i.e. in these cases the per-protocol gose shoul also be 1
-        gose_per_protocol = ifelse(gose_map_imputed == "1", "1", gose_per_protocol)
+        )
     ) %>% 
     # reorder
     select(