# NOT RUN {
library(modeltime)
library(dplyr)
library(earth)
data <- sknifedatar::data_avellaneda %>%
mutate(date=as.Date(date)) %>%
filter(date<'2012-06-01')
recipe_date <- recipes::recipe(value ~ ., data = data) %>%
recipes::step_date(date, features = c('dow','doy','week','month','year'))
mars <- parsnip::mars(mode = 'regression') %>%
parsnip::set_engine('earth')
wfsets <- workflowsets::workflow_set(
preproc = list(
R_date = recipe_date),
models = list(M_mars = mars),
cross = TRUE)
wffits <- sknifedatar::modeltime_wfs_fit(.wfsets = wfsets,
.split_prop = 0.8,
.serie = data)
sknifedatar::modeltime_wfs_refit(.wfs_results = wffits,
.serie = data)
# }
Run the code above in your browser using DataLab