Поиск MAD, MAPE и MSE в R для прогноза Холта-Винтерса и ARIMA

Question

Я ищу лучший способ рассчитать MAD, MAPE, MSE в R для прогнозной модели Холт-Уинтерса и ARIMA. Ниже приведен мой код для моих моделей, и любое руководство будет отличным

Модель и прогноз Холт-Винтерса:

#Holt-Winters Exponential Smoothing
forecast.mean <- HoltWinters(Abbeville$Incoming.Examinations,gamma=FALSE)


#Predicting ahead the next 12 months
forecast.predict <- predict(forecast.mean, n.ahead = 12, prediction.interval = TRUE)

Модель ARIMA и прогноз

ARIMA_forecast <- auto.arima(x=Abbeville$Incoming.Examinations)

ARIMA_nextforecasting <- forecast(ARIMA_forecast, h=12)