if (FALSE) {
library(dplyr)
data <- AirPassengers %>%
ts_to_tbl() %>%
select(-index)
splits <- time_series_split(
data
, date_col
, assess = 12
, skip = 3
, cumulative = TRUE
)
ts_lm <- ts_auto_lm(
.data = data,
.date_col = date_col,
.value_col = value,
.rsamp_obj = splits,
.formula = value ~ .,
)
ts_extract_auto_fitted_workflow(ts_lm)
}
Run the code above in your browser using DataLab