Ошибка в mutate_impl (.data, dots): Ошибка оценки: невозможно преобразовать целочисленный вектор в функцию

Question

Привет. Я пытаюсь выполнить прогнозирование для набора групп, но при применении шага отображения функции tk_ts во вложенный список появляется сообщение об ошибке:

Ошибка в mutate_impl (.данные, точки): Ошибка оценки: невозможно преобразовать целочисленный вектор в функцию

Код, который я использую для создания функции tk_ts:

lot_data2 <- Todo_raw %>%
  filter(New_desc == "Stand Alone Case", Frst_Scenario %in% 
  Prin_Scen_lst$Scen_NameST) %>% 
  mutate(month_opened=ymd(month_opened))%>%
  group_by(Frst_Scenario,month_opened) %>% 
  summarise(NumCas = as.numeric(n())) %>% 
  group_by(Frst_Scenario) %>%
  nest(.key = "table") %>%
     mutate(data.ts = map(
           .x       = table,
           .f       = tk_ts,
           select   = -month_opened,
           start    = c(2016,1),
           freq     = 12,
           silent   = TRUE))  

И данныечто у меня есть:

 Frst_Scenario                       table            
 <chr>                               <list>           
 1 Scen 1                              <tibble [31 x 2]>
 2 Scen 2                              <tibble [32 x 2]>
 3 Scen 3                              <tibble [32 x 2]>
 4 Scen 4                              <tibble [32 x 2]>

Также каждый список, включенный в таблицу, состоит из:

Список сцен 1 (month_opened = c (16801, 16832, 16861, 16892, 16922, 16953, 16983, 17014, 17045, 17075, 17106, 17136, 17167, 17198, 17226, 17257, 17287, 17318, 17348, 17379, 17410, 17440, 17471, 17501, 17532, 17563, 17591, 17622, ​​17652, 17683, 17713), NumCas = c (87, 84, 15, 26, 23, 14, 96, 120, 92, 99, 106, 70, 85, 103, 88, 83, 136, 83, 94, 102, 131, 86,88, 111, 83, 77, 84, 70, 72, 49, 79))

Список сцен 2 (month_opened = c (16801, 16832, 16861, 16892, 16922, 16953, 16983, 17014, 17045)17075, 17106,17136, 17167, 17198, 17226, 17257, 17287, 17318, 17348, 17379, 17410, 17440, 17471, 17501, 17532, 17563, 17591, 17622, ​​17652, 17683, 17713, 17744), NumCas = c (8905, 51043994, 3544, 3374, 3585, 4315, 3607, 2674, 2577, 2521, 2366, 3923, 2503, 2718, 4370, 1968, 2111, 1772, 1564, 1878, 1728, 1583, 1533, 2098, 1635, 16941768, 2131, 1976, 1564, 226))

Список сцен 3 (month_opened = c (16801, 16832, 16861, 16892, 16922, 16953, 16983, 17014, 17045, 17075, 17106, 17136,17167, 17198, 17226, 17257, 17287, 17318, 17348, 17379, 17410, 17440, 17471, 17501, 17532, 17563, 17591, 17622, ​​17652, 17683, 17713, 17744), NumCas = c (708, 777, 404727, 647, 648, 635, 622, 709, 607, 1080, 627, 703, 540, 186, 178, 166, 263, 224, 197, 240, 203, 223, 159, 151, 157, 147, 167, 144, 148, 94, 52))

Подбегая к гнезду, оно доставляет:

  Frst_Scenario               month_opened NumCas
   <chr>                       <date>        <int>
   1 Scen 1                    2016-01-01       87
   2 Scen 1                    2016-02-01       84
   3 Scen 1                    2016-03-01       15
   4 Scen 1                    2016-04-01       26
    ....

Кто-нибудь имеет представление о том, что я делаю неправильно или что я?м отсутствует?Заранее спасибо ...