R - Предсказать значения для нескольких категорий одного и того же результата - PullRequest
1 голос
/ 15 марта 2019

Давайте возьмем, у меня есть данные о билетах, проданных в каждой категории за несколько лет по месяцам.Например:

Year         Premium     Silver     Budget
Jan2016      112354      36745      456563       
Feb2016      1233445     234322     4533345
Mar2016      13456544    346755     34564422

У меня есть эти данные до февраля 2019 года для каждого месяца.Это код, который я использую, чтобы применять ариму для каждой категории отдельно.Я импортирую счетчик каждого столбца и делаю следующее:

> count <-data.frame(mytickets$Premium)
> tickets<-ts(count, frequency = 12, start = c(2016, 1),end=c(2018,6)) 
> pi=auto.arima(tickets) 
> summary(pi) 
> q=forecast(pi,h=12)

Я хочу предсказать, сколько билетов будет продано в следующем году каждый месяц.Возможно ли применить авто ARIMA в одном кадре?До сих пор я применяю модель отдельно.

1 Ответ

2 голосов
/ 15 марта 2019

Вы всегда можете попробовать lapply, если хотите рассчитать несколько вещей аналогичным образом:


dt <- read.table(text ="Year         Premium     Silver     Budget
Jan2016      112354      36745      456563       
Feb2016      1233445     234322     4533345
Mar2016      13456544    346755     34564422", header = TRUE)

library(data.table)
dt <- data.table(dt)
res <- lapply(c("Premium", "Silver", "Budget"), function(x) {
  count <- dt[, get(x)]
  tickets <-
    ts(
      count,
      frequency = 12,
      start = c(2016, 1),
      end = c(2018, 6)
    )
  pi = auto.arima(tickets)
  forecast(pi, h = 12)
})

...