Блог

Не понимаю, почему я получаю следующую ошибку. Я не привык работать с объектами ts в r. Я вижу, что в данных есть наблюдения.

 head(bike_sales)
library(tidyverse)
library(lubridate)
library(zoo)
library(sweep)
library(tidyr)
library(forecast)
library(forecastHybrid)
library(timetk)
data <- bike_sales %>%
  mutate(order.month = as_date(as.yearmon(order.date))) %>%
  group_by(category.secondary, customer.id, order.month) %>%
  summarise(total.qty = sum(quantity))

nested_monthly <- data %>%
  group_by(category.secondary, customer.id) %>%
  rename()
  nest(.key = "series") %>%
  ungroup()

nested_monthly %>%
  mutate(train.ts = map(series, ~.x %>% 
                          filter(order.month < make_date(2014, 1, 1)) %>%
                          tk_ts(frequency = 12, start = c(2011,1),
                                end = c(2013,12), silent = T)),
         test.ts = map(series, ~.x %>% 
                         filter(order.month >= make_date(2014, 1, 1)) %>%
                         tk_ts(frequency = 12, start = c(2014,1),
                               end = c(2015,12), silent = T)),
         # aggregate results for yearly predictions
         train.ts.agg = map(train.ts, ~.x %>% 
                              stats::filter(., rep(1,12), sides = 1) %>%
                              stats::window(start = c(2011, 12),
                                            end = c(2013, 12))),
         test.ts.agg = map(test.ts, ~.x %>% 
                             stats::filter(., rep(1,12), sides = 1) %>%
                             stats::window(start = c(2014, 12), 
                                           end = c(2015, 12))))