fix: typo

Author: dsweber2

scripts/covid_hosp_prod.R

@@ -12,10 +12,10 @@ truth_data_date <- "2023-09-01"
 # today, which is a Wednesday. Sometimes, if we're doing a delayed forecast,
 # it's a Thursday. It's used for stamping the data and for determining the
 # appropriate as_of when creating the forecast.
-forecast_generation_dates <- Sys.Date()
+forecast_generation_dates <- Sys.Date() - 6
 # Usually, the forecast_date is the same as the generation date, but you can
 # override this. It should be a Wednesday.
-forecast_dates <- round_date(forecast_generation_date, "weeks", week_start = 3)
+forecast_dates <- round_date(forecast_generation_dates, "weeks", week_start = 3)
 # forecast_generation_date needs to follow suit, but it's more complicated
 # because sometimes we forecast on Thursday.
 # forecast_generation_dates <- c(as.Date(c("2024-11-20", "2024-11-27", "2024-12-04", "2024-12-11", "2024-12-18", "2024-12-26", "2025-01-02")), seq.Date(as.Date("2025-01-08"), Sys.Date(), by = 7L))