suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(rsample))
data_tbl <- ts_to_tbl(AirPassengers) %>%
select(-index)
splits <- initial_time_split(
data_tbl
, prop = 0.8
)
ts_auto_recipe(
.data = data_tbl
, .date_col = date_col
, .pred_col = value
)
ts_auto_recipe(
.data = training(splits)
, .date_col = date_col
, .pred_col = value
)
Run the code above in your browser using DataLab