# NOT RUN {
library(dplyr)
library(earth)
df <- sknifedatar::emae_series
datex <- '2020-02-01'
df_emae <- df %>%
dplyr::filter(date <= datex) %>%
tidyr::nest(nested_column=-sector) %>%
head(2)
receta_base <- recipes::recipe(value ~ ., data = df %>% select(-sector))
mars <- parsnip::mars(mode = 'regression') %>% parsnip::set_engine('earth')
wfsets <- workflowsets::workflow_set(
preproc = list(
R_date = receta_base),
models = list(M_mars = mars),
cross = TRUE)
sknifedatar::modeltime_wfs_multifit(.wfs = wfsets,
.prop = 0.8,
serie = df_emae)
# }
Run the code above in your browser using DataLab