Merge pull request #223 from HopkinsIDD/main_postprocess_update

Main postprocess update
HopkinsIDD · Jul 15, 2024 · bf04025 · bf04025
2 parents 76c6985 + 098ad30
commit bf04025
Show file tree

Hide file tree

Showing 3 changed files with 701 additions and 347 deletions.
diff --git a/postprocessing/plot_predictions.R b/postprocessing/plot_predictions.R
@@ -39,7 +39,7 @@ state_cw <- fips_us_county %>%
 # GROUND TRUTH ------------------------------------------------------------
 
 gt_data <- gt_data %>% 
-  mutate(date = lubridate::as_date(date)) %>%
+  mutate(date = lubridate::as_date(date))
 colnames(gt_data) <- gsub("incidI", "incidC", colnames(gt_data))
 gt_outcomes <- outcomes_[outcomes_ != "I" & sapply(X = paste0("incid", outcomes_), FUN = function(x=X, y) any(grepl(pattern = x, x = y)), y = colnames(gt_data)) ]
 outcomes_gt_ <- outcomes_[outcomes_ %in% gt_outcomes]