# NOT RUN {
library(modeltime)
library(earth)
nested_serie <-
tidyr::nest(dplyr::filter(sknifedatar::emae_series, date < '2007-02-01'),
nested_column = -sector)
## Models
mars <- parsnip::mars(mode = 'regression') %>% parsnip::set_engine('earth')
# modeltime_multifit
sknifedatar::modeltime_multifit(serie = head(nested_serie,2),
.prop = 0.9,
mars)
# }
Run the code above in your browser using DataLab