corrected bug in recombination of imputed with known dead individuals

imputation-report.Rmd

@@ -202,6 +202,7 @@ tbl_posteriors <- tibble(
 ```
 
 ```{r final-imputations}
+# start by adding confirmed <= 180d deaths back in
 tbl_final_imputations <- readr::read_csv(
         sprintf('%s/tbl_gose_imputation.csv', config$datapath),
         col_types = "cinncD"
@@ -220,7 +221,7 @@ tbl_final_imputations <- readr::read_csv(
     ) %>% 
     mutate(
         probability = ifelse(
-            is.na(death_days),
+            is.na(death_days) | (death_days > 180),
             probability,
             ifelse(gose != "gose_1_probability", 0.0, 1.0)
         )