include smoothed_scaling in the targets

Author: dsweber2

R/targets_utils.R

@@ -127,26 +127,19 @@ make_shared_grids <- function() {
       forecaster = "scaled_pop",
       trainer = c("linreg", "quantreg"),
       ahead = c(1:7, 14, 21, 28),
-      pop_scaling = c(FALSE)
+      pop_scaling = FALSE
     ),
     tidyr::expand_grid(
       forecaster = "scaled_pop",
       trainer = c("linreg", "quantreg"),
       ahead = c(1:7, 14, 21, 28),
       lags = list(c(0, 3, 5, 7, 14), c(0, 7, 14), c(0,7,14,24)),
-      pop_scaling = c(FALSE)
+      pop_scaling = FALSE
     ),
     tidyr::expand_grid(
       forecaster = "flatline_fc",
       ahead = c(1:7, 14, 21, 28)
     ),
-    tidyr::expand_grid(
-      forecaster = "smoothed_scaled",
-      trainer = c("quantreg"),
-      ahead = c(1:7, 14, 21, 28),
-      lags = list(list(c(0, 3, 5, 7, 14), c(0),c(0, 3, 5, 7, 14), c(0),), c(0, 7, 14), c(0,2,4,7,14,21,28)),
-      pop_scaling = c(FALSE)
-    )
   )
 }
 #' Make list of common ensembles for forecasting experiments across projects

covid_hosp_explore.R

@@ -18,6 +18,13 @@ make_unique_grids <- function() {
       ahead = c(1:7, 14, 21, 28),
       lags = list(c(0, 3, 5, 7, 14), c(0, 7, 14)),
       pop_scaling = TRUE
+    ),
+    tidyr::expand_grid(
+      forecaster = "smoothed_scaled",
+      trainer = c("quantreg"),
+      ahead = c(1:7, 14, 21, 28),
+      lags = list(list(c(0, 3, 5, 7, 14), c(0), c(0, 3, 5, 7, 14), c(0),), list(c(0, 7, 14), c(0)), list(c(0,2,4,7,14,21,28), c(0))),
+      pop_scaling = TRUE
     )
   )
 }

flu_hosp_explore.R

@@ -5,7 +5,15 @@ source("extras/targets-common.R")
 
 # Add custom parameter combinations in the list below.
 make_unique_grids <- function() {
-  list()
+  list(
+    tidyr::expand_grid(
+      forecaster = "smoothed_scaled",
+      trainer = c("quantreg"),
+      ahead = c(1:7, 14, 21, 28),
+      lags = list(list(c(0, 3, 5, 7, 14), c(0), c(0, 3, 5, 7, 14), c(0),), list(c(0, 7, 14), c(0)), list(c(0,2,4,7,14,21,28), c(0))),
+      pop_scaling = FALSE
+    )
+  )
 }
 make_unique_ensemble_grid <- function() {
   tribble(