Hospitalization Model Forecaster Filtering

Goal

Identify hospitalization forecast models that were excluded from the CDC 4 week ensemble due to submitting forecasts for less than 28 days for the current week.

Result

miss <- hub_forecasts %>%
  group_by(model) %>%
  summarize(max_target_end_date = max(target_end_date)) %>%
  filter(max_target_end_date < this_monday + 28 & model != "COVIDhub-ensemble")

# print list
if (dim(miss) > 0) {
   print(miss) 
  }

## # A tibble: 2 × 2
##   model           max_target_end_date
##   <chr>           <date>             
## 1 JHU_IDD-CovidSP 2024-05-25         
## 2 PSI-DICE        2024-05-26

# print message if empty
if (dim(miss) == 0) {
   print("All hosptialization forecast models submitted this week are included in the COVIDhub_4wk_ensemble") 
  }