library(tidymodels)
library(modeltime)
library(workflowsets)
library(tidyverse)
library(lubridate)
library(timetk)
data_set <- m4_monthly
# SETUP WORKFLOWSETS
rec1 <- recipe(value ~ date + id, data_set) %>%
step_mutate(date_num = as.numeric(date)) %>%
step_mutate(month_lbl = lubridate::month(date, label = TRUE)) %>%
step_dummy(all_nominal(), one_hot = TRUE)
mod1 <- linear_reg() %>% set_engine("lm")
mod2 <- prophet_reg() %>% set_engine("prophet")
wfsets <- workflowsets::workflow_set(
preproc = list(rec1 = rec1),
models = list(
mod1 = mod1,
mod2 = mod2
),
cross = TRUE
)
# FIT WORKFLOWSETS
# - Returns a Modeltime Table with fitted workflowsets
wfsets %>% modeltime_fit_workflowset(data_set)
Run the code above in your browser using DataLab