Как разложить xts полчаса данных временных рядов - PullRequest
Новая
       7

Как разложить xts полчаса данных временных рядов

0 голосов
/ 12 февраля 2019

У меня есть набор данных ниже с полчасовыми данными временных рядов. 

Date <- c("2018-01-01 08:00:00", "2018-01-01 08:30:00", 
          "2018-01-01 08:59:59","2018-01-01 09:29:59")
Volume <- c(195, 188, 345, 123)
Dataset <- data.frame(Date, Volume)

Я преобразую в формат даты с помощью: 

Dataset$Date <- as.POSIXct(Dataset$Date)

Создание объекта xts 

library(xts)
Dataset.xts <- xts(Dataset$Volume, order.by=Dataset$Date)

Когда я пытаюсь разложить его на основе этого Q с помощью: 

attr(Dataset.xts, 'frequency')<- 48
decompose(ts(Dataset.xts, frequency = 48))

, я получаю: 

Error in decompose(ts(Dataset.xts, frequency = 48)) : 
  time series has no or less than 2 periods

1 Ответ

0 голосов
/ 12 февраля 2019

Как я уже упоминал в комментариях, вам нужно as.ts вместо ts.Также вы указываете частоту, превышающую количество ваших записей.Оба приводят к ошибкам.

Этот код работает: 

library(xts)

df1 <- data.frame(date = as.POSIXct(c("2018-01-01 08:00:00", "2018-01-01 08:30:00", 
                                          "2018-01-01 08:59:59","2018-01-01 09:29:59")),
                      volume =  c(195, 188, 345, 123))

df1_xts <- xts(df1$volume, order.by = df1$date)

attr(df1_xts, 'frequency') <- 2
decompose(as.ts(df1_xts))

Это не (частота выше, чем количество записей): 

attr(df1_xts, 'frequency') <- 48
decompose(as.ts(df1_xts))
Error in decompose(as.ts(df1_xts)) : 
  time series has no or less than 2 periods

Также это не (ts вместо as.ts): 

attr(df1_xts, 'frequency') <- 2
decompose(ts(df1_xts))
Error in decompose(ts(df1_xts)) : 
  time series has no or less than 2 periods
...