a

dshemetov · dshemetov · commit a624f6528b8f · 2025-02-07T13:54:17.000-08:00
diff --git a/scripts/covid_hosp_explore.R b/scripts/covid_hosp_explore.R
@@ -10,7 +10,7 @@ if (!exists("ref_time_values_")) {
   end_date <- as.Date("2024-04-24")
   # end_date <- start_date + 7 * 10
   date_step <- 7L
-  ref_time_values_ <- seq.Date(as.Date("2023-10-04"), as.Date("2024-04-24"), by = 7L)
+  ref_time_values_ <- seq.Date(as.Date("2023-10-21"), as.Date("2024-04-24"), by = 7L)[1]
 }
 time_value_adjust <- 3 # this moves the week marker from Saturday to Wednesday
 
diff --git a/scripts/targets-exploration-common.R b/scripts/targets-exploration-common.R
@@ -154,6 +154,8 @@ make_forecasts_and_scores <- function() {
     tar_target(
       name = forecast,
       command = {
+        debugonce(scaled_pop)
+        browser()
         slid <- slide_forecaster(
           epi_archive = joined_archive_data,
           outcome = "hhs",

Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,7 @@ if (!exists("ref_time_values_")) {`
`10`	`10`	`end_date <- as.Date("2024-04-24")`
`11`	`11`	`# end_date <- start_date + 7 * 10`
`12`	`12`	`date_step <- 7L`
`13`		`- ref_time_values_ <- seq.Date(as.Date("2023-10-04"), as.Date("2024-04-24"), by = 7L)`
	`13`	`+ ref_time_values_ <- seq.Date(as.Date("2023-10-21"), as.Date("2024-04-24"), by = 7L)[1]`
`14`	`14`	`}`
`15`	`15`	`time_value_adjust <- 3 # this moves the week marker from Saturday to Wednesday`
`16`	`16`