Применить функцию lapply к пакету прогноза (точность и auto.arima) - PullRequest
Новая
       23

Применить функцию lapply к пакету прогноза (точность и auto.arima)

0 голосов
/ 26 апреля 2020

Я обрабатываю набор данных uschange из пакета fpp2 и выполняю функции из пакета прогноза auto.arima. Поскольку я прогнозировал несколько временных рядов одновременно, я использовал собственную функцию, которая делает несколько проекций одновременно. 

# 
library(fpp2) # data
library(dplyr)
library(forecast)

MY_DATA<-uschange[,1:4]

Trening_set<-subset(MY_DATA,start=1,end=150) # Training set
Test_set<-subset(MY_DATA,start=151,end=187) # Test set 20% of observations

# 1.Own functions for forecasting
FORECASTING_FUNCTION_ARIMA <- function(Z, hrz = 16) {
  timeseries <- msts(Z, start = 1970, seasonal.periods = 4)
  forecast <- auto.arima(timeseries)
  #ic = c("bic")
}
FORECASTING_LIST_ARIMA <- lapply(X = Trening_set, FORECASTING_FUNCTION_ARIMA)
ARIMA_MODELS_FORECAST<-lapply(FORECASTING_LIST_ARIMA, forecast,h=37)

Чтобы увидеть точность этих моделей, я использовал функцию lapply. Так что код и результаты вы можете увидеть ниже : 

# Accurancy test
ACCURANCY_ARIMA <- lapply(FORECASTING_LIST_ARIMA,  accuracy)

Таким образом, следующим шагом должно быть использование той же функции для получения тех же ошибок точности, что и в предыдущем примере, но теперь с тестовым набором. Я пытаюсь с кодом ниже, но что-то не так, и я не могу получить хорошие результаты. 

 ACCURANCY_ARIMA1<-lapply(FORECASTING_LIST_ARIMA, accuracy(forecast(ARIMA_MODELS_ALL,h=37),x=Test_set))

Если эта функция работает правильно, вывод должен выглядеть следующим образом (цифры приведены только для иллюстрации).

enter image description here

Кто-нибудь может мне помочь, как исправить эту строку кода и получить вывод, похожий на последний пи c выше.

1 Ответ

1 голос
/ 26 апреля 2020

Вы можете попробовать: 

library(forecast)

ACCURACY_ARIMA <- Map(function(x, y) accuracy(forecast(x, h = 37), 
        x = Test_set[, y]), FORECASTING_LIST_ARIMA, seq_len(ncol(Test_set)))

ACCURACY_ARIMA
#$Consumption
#                   ME RMSE  MAE MPE MAPE MASE  ACF1 Theil's U
#Training set  0.00082 0.61 0.45  62  192 0.66 0.018        NA
#Test set     -0.44644 0.66 0.49 165  346 0.72 0.629      0.67

#$Income
#                   ME RMSE  MAE MPE MAPE MASE   ACF1 Theil's U
#Training set  4.2e-15 0.86 0.60  40  163 0.63 -0.056        NA
#Test set     -3.4e-01 1.18 0.69  20  212 0.72 -0.326      0.65

#$Production
#                  ME RMSE  MAE MPE MAPE MASE   ACF1 Theil's U
#Training set  0.0094  1.3 0.88  36  114 0.59 -0.021        NA
#Test set     -0.6538  1.8 1.05  18  124 0.71  0.771         1

#$Savings
#              ME RMSE  MAE MPE MAPE MASE   ACF1 Theil's U
#Training set 1.2   12  8.1 111  176 0.65 -0.012        NA
#Test set     2.5   19 11.9 101  101 0.96 -0.356      0.97
...