pass local checks

Author: dajmcdon

NAMESPACE

@@ -202,7 +202,6 @@ export(rename)
 export(select)
 export(slather)
 export(smooth_quantile_reg)
-export(snap)
 export(step_adjust_latency)
 export(step_climate)
 export(step_epi_ahead)

R/make_smooth_quantile_reg.R

@@ -41,13 +41,11 @@
 #' )
 #' pl <- pl %>%
 #'   unnest(.pred) %>%
-#'   mutate(distn = nested_quantiles(distn)) %>%
-#'   unnest(distn) %>%
+#'   pivot_quantiles_wider(distn) %>%
 #'   mutate(
 #'     x = x[length(x) - 20] + ahead / 100 * 2 * pi,
 #'     ahead = NULL
-#'   ) %>%
-#'   pivot_wider(names_from = distn_quantile_levels, values_from = distn_value)
+#'   )
 #' plot(x, y, pch = 16, xlim = c(pi, 2 * pi), col = "lightgrey")
 #' curve(sin(x), add = TRUE)
 #' abline(v = fd, lty = 2)
@@ -57,11 +55,11 @@
 #'
 #' library(ggplot2)
 #' ggplot(data.frame(x = x, y = y), aes(x)) +
-#'   geom_ribbon(data = pl, aes(ymin = `0.2`, ymax = `0.8`), fill = "lightblue") +
+#'   geom_ribbon(data = pl, aes(ymin = `0.2`, ymax = `0.8`), fill = "cornflowerblue") +
 #'   geom_point(aes(y = y), colour = "grey") + # observed data
 #'   geom_function(fun = sin, colour = "black") + # truth
 #'   geom_vline(xintercept = fd, linetype = "dashed") + # end of training data
-#'   geom_line(data = pl, aes(y = `0.5`), colour = "red") + # median prediction
+#'   geom_line(data = pl, aes(y = `0.5`), colour = "orange") + # median prediction
 #'   theme_bw() +
 #'   coord_cartesian(xlim = c(0, NA)) +
 #'   ylab("y")

R/weighted_interval_score.R

@@ -52,13 +52,13 @@
 #'
 #' # Using some actual forecasts --------
 #' library(dplyr)
-#' jhu <- case_death_rate_subset %>%
+#' training <- covid_case_death_rates %>%
 #'   filter(time_value >= "2021-10-01", time_value <= "2021-12-01")
 #' preds <- flatline_forecaster(
-#'   jhu, "death_rate",
+#'   training, "death_rate",
 #'   flatline_args_list(quantile_levels = c(.01, .025, 1:19 / 20, .975, .99))
 #' )$predictions
-#' actuals <- case_death_rate_subset %>%
+#' actuals <- covid_case_death_rates %>%
 #'   filter(time_value == as.Date("2021-12-01") + 7) %>%
 #'   select(geo_value, time_value, actual = death_rate)
 #' preds <- left_join(preds, actuals,