library(modeltime)
library(tidymodels)
library(tidyverse)
library(timetk)
library(lubridate)
# Setup
m750 <- m4_monthly %>% filter(id == "M750")
splits <- time_series_split(m750, assess = "3 years", cumulative = TRUE)
model_fit_arima <- arima_reg() %>%
set_engine("auto_arima") %>%
fit(value ~ date, training(splits))
model_fit_prophet <- prophet_reg() %>%
set_engine("prophet") %>%
fit(value ~ date, training(splits))
# Multiple Modeltime Tables
model_tbl_1 <- modeltime_table(model_fit_arima)
model_tbl_2 <- modeltime_table(model_fit_prophet)
# Combine
combine_modeltime_tables(model_tbl_1, model_tbl_2)
Run the code above in your browser using DataLab