Компания, в которой я работаю, проверяет способность нового программного обеспечения прогнозировать. Один пакет принимает заказы на один продукт из нескольких мест, суммирует их за каждый период, а затем разрабатывает модель, которую затем использует в каждом месте. Например, если в 6-месячном периоде местоположение A заказывает продукт следующим образом (1,0,2,3,0,3), а B заказывает тот же продукт, что и (2,3,4,2,5,1) Затем программное обеспечение разработает модель на основе данных A + B = (3,3,6,5,5,4) и применит эту модель к данным в A и B отдельно, чтобы определить значение на 7-м месяце.
Я хочу попробовать и проверить (или аннулировать) их подход, используя R. Я создал серию моделей с одним экспоненциальным сглаживанием (называемых ssforecasts) и хочу использовать эти модели для новых данных о местоположении следующим образом:
ss<-c(29,36,36,48,93,28,35,28,37,50,37,3,25,28,40,45,38,43,34,44,43,25,33,34)
ss2<-t(ss)
for (i in 1:12){
sseries<-ts(ss2[c(i:(11+i))],frequency=12)
ssforecasts <- HoltWinters(sseries, beta=FALSE, gamma=FALSE)
newss <- ts(c(3,3,1,4,1,3,8,0,4,3,3,0),frequency=12)
predict(ssforecasts,t(newss))
}
где newss - это данные о местоположении, с которыми я хочу, чтобы модель (ssforecasts) действовала. Проблема в том, что я получаю следующую ошибку, которую не могу интерпретировать.
Ошибка в rep (as.vector (object $ coefficients [1L]), n.ahead): недействительно
аргумент 'времена'