Sped up model() example

Author: mitchelloharawild

R/model.R

@@ -30,7 +30,7 @@ model <- function(.data, ...){
 #' 
 #' 
 #' @examples 
-#' if (requireNamespace("fable", quietly = TRUE)) {
+#' if (requireNamespace("fable", quietly = TRUE) && requireNamespace("tsibbledata", quietly = TRUE)) {
 #' library(fable)
 #' library(tsibbledata)
 #' 
@@ -39,10 +39,13 @@ model <- function(.data, ...){
 #'   model(ets = ETS(log(Beer) ~ error("M") + trend("Ad") + season("A")))
 #' 
 #' # Training a seasonal naive and ETS(A,A,A) model to the monthly 
-#' # "Food retailing" turnover for each Australian state/territory.
+#' # "Food retailing" turnover for selected Australian states.
 #' library(dplyr)
 #' aus_retail %>% 
-#'   filter(Industry == "Food retailing") %>% 
+#'   filter(
+#'     Industry == "Food retailing",
+#'     State %in% c("Victoria", "New South Wales", "Queensland")
+#'   ) %>% 
 #'   model(
 #'     snaive = SNAIVE(Turnover),
 #'     ets = ETS(log(Turnover) ~ error("A") + trend("A") + season("A")),