library(dplyr)
library(timetk)
library(parsnip)
library(modeltime)
# Model Specification ----
arima_spec <- arima_reg() %>%
set_engine("auto_arima")
get_model_description(arima_spec, indicate_training = TRUE)
# Fitted Model ----
m750 <- m4_monthly %>% filter(id == "M750")
arima_fit <- arima_spec %>%
fit(value ~ date, data = m750)
get_model_description(arima_fit, indicate_training = TRUE)
Run the code above in your browser using DataLab