# \donttest{
library(dplyr)
library(timetk)
library(modeltime)
data <- AirPassengers %>%
ts_to_tbl() %>%
select(-index)
splits <- time_series_split(
data
, date_col
, assess = 12
, skip = 3
, cumulative = TRUE
)
ts_theta <- ts_auto_theta(
.data = data,
.date_col = date_col,
.value_col = value,
.rsamp_obj = splits
)
ts_theta$recipe_info
# }
Run the code above in your browser using DataLab