Извлечь описание модели из mable - PullRequest
Новая
       67

Извлечь описание модели из mable

0 голосов
/ 13 января 2020

У меня есть объект mable, который выглядит примерно так: 

models
# A mable: 1 x 3
  ets           arima                     nnetar             
  <model>       <model>                   <model>            
1 <ETS(M,Ad,M)> <ARIMA(2,1,2)(0,0,2)[12]> <NNAR(14,1,10)[12]>

Мне просто нужны описания моделей, чтобы я мог разместить их на графике. Поэтому я запустил следующий код: 

model_desc <- models %>% 
  gather() %>% 
  select(key, value) %>% 
  set_names("model","model_desc") %>%
  mutate(model_desc_char = model_desc %>% as.character())
  as_tibble() %>%
  select(model, model_desc)

Это все равно возвращает мне тиббл, где model_des c все еще является объектом списка. Я думаю, что это из-за того, как построен Мейбл и как должна быть его структура.

** ОБНОВЛЕНИЕ ** Я решил проблему, выполнив следующее: 

model_desc <- models %>% 
  as_tibble() %>%
  gather() %>%
  mutate(model_desc = print(value)) %>%
  select(key, model_desc) %>%
  set_names("model", "model_desc")

1 Ответ

0 голосов
/ 13 января 2020

Это привело к решению моей проблемы: 

model_desc <- models %>% 
  as_tibble() %>%
  gather() %>%
  mutate(model_desc = print(value)) %>%
  select(key, model_desc) %>%
  set_names("model", "model_desc")
...