Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- fit.test <- model_arima %>% forecast(h=length(ts_test))
- seasonal_contribution <- round(100*mean(abs(ts_train_decomposed$seasonal/ts_train), na.rm = TRUE),1)
- random_contribution <- round(100*mean(abs(ts_train_decomposed $random/ts_train), na.rm = TRUE),1)
- trend_contribution <- round(100*mean(abs(ts_train_decomposed $trend/ts_train), na.rm = TRUE),1)
Add Comment
Please, Sign In to add comment