Прогнозы в один шаг вперед в R

Question

Я использую функцию forecast в R много раз с циклом (12 месяцев), но я хочу использовать точность для сравнения прогноза для времени горизонта = 12 и на шаг впереди. Моя проблема заключается в том, как хранить результаты 12 раз, чтобы использовать их в точности.

for (i in 1:12) { 
    demfit <- ets(Dem2) 
    f <- forecast(demfit, 1) 
    Dem2[length(Dem2)+1] <- f$mean[1] 
} 
accuracy(f,Test) 

вычисляет точность только последний пункт прогноз 12

Но, я смотрю на это за 12 forecats, как это:

fit <- ets(Dem2) 
f1 <- forecast(fit, 12) 
accuracy(f1, Test) 

Answer 1

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

Способ сделать это состоит в следующем (чтобы сохранить его в списке):

f  <- list() 
for (i in 1:12) { 
    demfit <- ets(Dem2) 
    f[[i]] <- forecast(demfit, 1) #start filling the f list with values 
    Dem2[length(Dem2)+1] <- f$mean[1] 
} 
f <- unlist(f) 
accuracy(f,Test) 

И f существу будет список, содержащий 12 значений, по одному для каждой итерации. То же самое для myacc.