## 7.8 Forecasting with decomposition

While decomposition is primarily useful for studying time series data, and exploring historical changes over time, it can also be used in forecasting.

Assuming an additive decomposition, the decomposed time series can be written as \[ y_t = \hat{S}_t + \hat{A}_t, \] where \(\hat{A}_t = \hat{T}_t+\hat{R}_{t}\) is the seasonally adjusted component. Or, if a multiplicative decomposition has been used, we can write \[ y_t = \hat{S}_t\hat{A}_t, \] where \(\hat{A}_t = \hat{T}_t\hat{R}_{t}\).

To forecast a decomposed time series, we forecast the seasonal component, \(\hat{S}_t\), and the seasonally adjusted component \(\hat{A}_t\), separately. It is usually assumed that the seasonal component is unchanging, or changing extremely slowly, so it is forecast by simply taking the last year of the estimated component. In other words, a seasonal naïve method is used for the seasonal component.

To forecast the seasonally adjusted component, any non-seasonal forecasting method may be used. For example, a random walk with drift model, or Holt’s method (discussed in the next chapter), or a non-seasonal ARIMA model (discussed in Chapter 9), may be used.

### Example: Electrical equipment manufacturing

```
dcmp <- vic_print_media %>%
STL(Turnover ~ trend(window = 13) + season(window = "periodic"), robust=TRUE)
dcmp %>%
model(NAIVE(season_adjust)) %>%
forecast() %>%
autoplot(dcmp) + ylab("New orders index") +
ggtitle("Naive forecasts of seasonally adjusted data")
```

Figure 7.14 shows naïve forecasts of the seasonally adjusted electrical equipment orders data. These are then “reseasonalised” by adding in the seasonal naïve forecasts of the seasonal component.

This is made easy with the `decomposition_model()`

model function, which allows you to compute forecasts via any additive decomposition, using other model functions to forecast each of the decomposition’s components. Seasonal components of the model will be forecasted automatically using `SNAIVE()`

if a different model isn’t specified. The function will also do the reseasonalising for you, ensuring that the resulting forecasts of the original data are shown in Figure 7.15.

```
vic_print_media %>%
model(
stlf = decomposition_model(STL, log(Turnover) ~ trend(window = 13) + season(window = "periodic"),
NAIVE(season_adjust), dcmp_args = list(robust=TRUE))
) %>%
forecast() %>%
autoplot(vic_print_media)
```

The prediction intervals shown in this graph are constructed in the same way as the point forecasts. That is, the upper and lower limits of the prediction intervals on the seasonally adjusted data are “reseasonalised” by adding in the forecasts of the seasonal component.

As well as the naïve method, any other appropriate forecasting method can be used to model the seasonally adjusted component.