## 6.6 Examples of application

### 6.6.1 Non-seasonal data

We continue our examples with the same Box-Jenkins sales data by fitting the ETS(M,M,N) model, but this time with a holdout of 10 observations:

adamETSBJ <- adam(BJsales, "MMN", h=10, holdout=TRUE)
adamETSBJ
## Time elapsed: 0.03 seconds
## Model estimated using adam() function: ETS(MMN)
## Distribution assumed in the model: Gamma
## Loss function type: likelihood; Loss function value: 245.3759
## Persistence vector g:
##  alpha   beta
## 1.0000 0.2412
##
## Sample size: 140
## Number of estimated parameters: 5
## Number of degrees of freedom: 135
## Information criteria:
##      AIC     AICc      BIC     BICc
## 500.7518 501.1996 515.4600 516.5664
##
## Forecast errors:
## ME: 3.217; MAE: 3.33; RMSE: 3.784
## sCE: 14.124%; Asymmetry: 91.6%; sMAE: 1.462%; sMSE: 0.028%
## MASE: 2.817; RMSSE: 2.482; rMAE: 0.925; rRMSE: 0.921

The output above is similar to the one we discussed in Section 5.6, so we can compare the two models using various criteria and select the most appropriate. Even though the default distribution for the multiplicative error models in ADAM is Gamma, we can compare this model with the ETS(A,A,N) via information criteria. For example, here are the AICc for the two models:

# ETS(M,M,N)
AICc(adamETSBJ)
##  501.1996
# ETS(A,A,N)
AICc(adam(BJsales, "AAN", h=10, holdout=TRUE))
##  497.2624

The comparison is fair because both models were estimated via likelihood, and both likelihoods are formulated correctly, without omitting any terms (e.g. the ets() function from the forecast package omits the $$-\frac{T}{2} \log\left(2\pi e \frac{1}{T}\right)$$ for convenience, which makes it incomparable with other models). In this example, the pure additive model is more suitable for the data than the pure multiplicative one.

Figure 6.1 shows how the model fits the data and what forecast it produces. Note that the function produces the point forecast in this case, which is not equivalent to the conditional expectation! The point forecast undershoots the actual values in the holdout. Figure 6.1: Model fit for Box-Jenkins Sales data from ETS(M,M,N).

If we want to produce the forecasts (conditional expectation and prediction interval) from the model, we can do it, using the same command as in Section 5.6:

forecast(adamETSBJ, h=10,
interval="prediction", level=0.95) |>
plot() Figure 6.2: Forecast for Box-Jenkins Sales data from ETS(M,M,N).

Note that, when we ask for “prediction” interval, the forecast() function will automatically decide what to use based on the estimated model: in case of pure additive one, it will use analytical solutions, while in the other cases, it will use simulations (see Section 18.3). The point forecast obtained from the forecast function corresponds to the conditional expectation and is calculated based on the simulations. This also means that it will differ slightly from one run of the function to another (reflecting the uncertainty in the error term). Still, the difference, in general, should be negligible for a large number of simulation paths.

The forecast with prediction interval is shown in Figure 6.2. The conditional expectation is not very different from the point forecast in this example. This is because the variance of the error term is close to zero, thus bringing the two close to each other:

sigma(adamETSBJ)^2
##  3.928668e-05

We can also compare the performance of ETS(M,M,N) with Gamma distribution with the conventional ETS(M,M,N) assuming normality:

adamETSBJNormal <- adam(BJsales, "MMN", h=10, holdout=TRUE,
distribution="dnorm")
adamETSBJNormal
## Time elapsed: 0.03 seconds
## Model estimated using adam() function: ETS(MMN)
## Distribution assumed in the model: Normal
## Loss function type: likelihood; Loss function value: 245.3872
## Persistence vector g:
## alpha  beta
## 1.000 0.241
##
## Sample size: 140
## Number of estimated parameters: 5
## Number of degrees of freedom: 135
## Information criteria:
##      AIC     AICc      BIC     BICc
## 500.7745 501.2222 515.4827 516.5890
##
## Forecast errors:
## ME: 3.217; MAE: 3.33; RMSE: 3.785
## sCE: 14.126%; Asymmetry: 91.6%; sMAE: 1.462%; sMSE: 0.028%
## MASE: 2.817; RMSSE: 2.483; rMAE: 0.925; rRMSE: 0.921

In this specific example, the two distributions produce very similar results with almost indistinguishable estimates of parameters.

### 6.6.2 Seasonal data

The AirPassengers data used in Section 5.6 has (as we discussed) multiplicative seasonality. So, the ETS(M,M,M) model might be more suitable than the pure additive one that we used previously:

adamETSAir <- adam(AirPassengers, "MMM", h=12, holdout=TRUE)

After running the command above we might get warning, saying that the model has a potentially explosive multiplicative trend. This happens, when the final in-sample value of the trend component is greater than one, in which case the forecast trajectory might exhibit exponential growth. Here what we have in the output of this model:

adamETSAir
## Time elapsed: 0.11 seconds
## Model estimated using adam() function: ETS(MMM)
## Distribution assumed in the model: Gamma
## Loss function type: likelihood; Loss function value: 468.5176
## Persistence vector g:
##  alpha   beta  gamma
## 0.7684 0.0206 0.0000
##
## Sample size: 132
## Number of estimated parameters: 17
## Number of degrees of freedom: 115
## Information criteria:
##       AIC      AICc       BIC      BICc
##  971.0351  976.4036 1020.0428 1033.1492
##
## Forecast errors:
## ME: -5.617; MAE: 15.496; RMSE: 21.938
## sCE: -25.677%; Asymmetry: -23.1%; sMAE: 5.903%; sMSE: 0.698%
## MASE: 0.643; RMSSE: 0.7; rMAE: 0.204; rRMSE: 0.213

Notice that the smoothing parameter $$\gamma=0$$, which implies that we deal with the data with deterministic multiplicative seasonality. Comparing the information criteria (e.g. AICc) with the ETS(A,A,A) (discussed in Subsection 5.6.2), the pure multiplicative model does a better job at fitting the data than the additive one:

adamETSAirAdditive <- adam(AirPassengers, "AAA", lags=12,
h=12, holdout=TRUE)
AICc(adamETSAirAdditive)
##  1130.756

The conditional expectation and prediction interval from this model are more adequate as well (Figure 6.3):

adamForecast <- forecast(adamETSAir, h=12, interval="prediction")
## Warning: Your model has a potentially explosive multiplicative trend. I cannot
## do anything about it, so please just be careful.
plot(adamForecast, main="") Figure 6.3: Forecast for air passengers data using ETS(M,M,M) model.

If we want to calculate the error measures based on the conditional expectation, we can use the measures() function from greybox package in the following way:

measures(adamETSAir$holdout,adamForecast$mean,actuals(adamETSAir))
##            ME           MAE           MSE           MPE          MAPE
##  -5.365839507  15.519575391 479.013277676  -0.015826465   0.033759093
##           sCE          sMAE          sMSE          MASE         RMSSE
##  -0.245302600   0.059123898   0.006952068   0.644394414   0.698528088
##          rMAE         rRMSE          rAME     asymmetry          sPIS
##   0.204204939   0.212537468   0.075398213  -0.208298624   2.070799932

These can be compared with the measures from the ETS(A,A,A) model:

measures(adamETSAir$holdout,adamETSAirAdditive$forecast,actuals(adamETSAir))
##            ME           MAE           MSE           MPE          MAPE
##   28.36910729   37.11462699 2442.64739763    0.04881281    0.07053896
##           sCE          sMAE          sMSE          MASE         RMSSE
##    1.29691091    0.14139314    0.03545090    1.54105107    1.57739510
##          rMAE         rRMSE          rAME     asymmetry          sPIS
##    0.48835036    0.47994571    0.39862914    0.69383499   -7.31044007

Comparing, for example, MSE from the two models, we can conclude that the pure multiplicative model is more accurate than the pure additive one.

We can also produce the plot of the time series decomposition according to ETS(M,M,M) (see Figure 6.4):

plot(adamETSAir, which=12) Figure 6.4: Decomposition of air passengers data using ETS(M,M,M) model.

The plot in Figure 6.4 shows that the residuals are more random for the pure multiplicative model than for the ETS(A,A,A), but there still might be some structure left. The autocorrelation and partial autocorrelation functions (discussed in Section 8.3) might help in understanding this better:

par(mfcol=c(2,1), mar=c(2,4,2,1))
plot(adamETSAir, which=10:11) Figure 6.5: ACF and PACF of residuals of ETS(M,M,M) model.

The plot in Figure 6.5 shows that there is still some correlation left in the residuals, which could be either due to pure randomness or imperfect estimation of the model. Tuning the parameters of the optimiser or selecting a different model might solve the problem.