# NOT RUN {
library(tidymodels)
library(modeltime)
library(modeltime.ensemble)
library(timetk)
library(tidyverse)
resamples_tscv <- training(m750_splits) %>%
time_series_cv(
assess = "2 years",
initial = "5 years",
skip = "2 years",
slice_limit = 1
)
m750_models_resample <- m750_models %>%
modeltime_fit_resamples(
resamples = resamples_tscv,
control = control_resamples(verbose = TRUE)
)
m750_models_resample
# }
Run the code above in your browser using DataLab