I would like to use exponential smoothing to forecast for 5 days, but forecasts look all same. I have read the documentation of ets package and tried different Additive, Multiplicative model, but could not fix the problem. My data consists 30 days of hourly measurements and I would like to forecast day from 31 to 35.
Here is my code
library(forecast)
mydatatsfreq <- ts(mydata, frequency = 24)
fit <- ets(mydatatsfreq, model='ZZZ')
summary(fit)
Output of summary
ETS(A,Ad,A)
Call: ets(y = mydatatsfreq, model = "ZZZ")
Smoothing parameters: alpha = 0.9971 beta = 1e-04 gamma = 2e-04 phi = 0.9788
Initial states: l = 6.5994 b = -0.0745 s=-8.5981 -8.3857 -8.2845 -8.4552 -8.5558 -8.6233 -8.662 -6.5815 5.5694 15.1411 20.8226 22.4551 23.014 20.7874 15.5312 7.1746 -3.5179 -8.8709 -8.8073 -8.5763 -8.6457 -8.74 -8.6555 -8.5355
sigma: 1.7493
AIC AICc BIC
5593.623 5596.326 5730.958
Training set error measures: ME RMSE MAE MPE MAPE MASE ACF1 Training set 0.00722588 1.749286 0.8136336 NaN Inf 0.6419291 0.05326251
This is the plot of forecasts
Results of auto.arima()
Series: mydatatsfreq
ARIMA(2,0,2)(0,0,2)[24] with non-zero mean
Coefficients:
ar1 ar2 ma1 ma2 sma1 sma2 mean
1.8022 -0.8810 -0.5069 -0.3599 0.4508 0.3917 0.1713
s.e. 0.0190 0.0186 0.0414 0.0397 0.0447 0.0336 0.0056
sigma^2 estimated as 0.002391: log likelihood=1146.15
AIC=-2276.3 AICc=-2276.1 BIC=-2239.68