1

此代码正常工作

require(fable)   
it <-  tsibbledata::global_economy %>%
    filter(Country == "Italy")
fm0 <-  model(.data = it, 
    ARIMA(log(GDP) ~ Population), 
    ETS(log(GDP)))

下一个预计不会工作

fm1 <-  model(.data = it, 
    ARIMA(log(GDP) ~ Population + pdq(3,1,7) +PDQ(5,1,1)),
    ETS(log(GDP)))

显然，由于 ARIMA 模型，它不起作用。ETS 工作正常

我可以：

fm2 <-  try(
    model(.data = it, 
    ARIMA(log(GDP) ~ Population + pdq(3,1,7) +PDQ(5,1,1)), 
    ETS(log(GDP))))

但这会使两种模型都失败

我想要类似的东西

fm3 <-  try(
    model(.data = it, 
    try(ARIMA(log(GDP) ~ Population + pdq(3,1,7) +PDQ(5,1,1))), 
    ETS(log(GDP))))

这样 fm3 包含 ETS 的正确结果和 ARIMA 的“try-error”类对象

可能修改 fablelite:::estimate 以便它可以处理错误可能是一个解决方案？

任何帮助将不胜感激

4

1 回答 1

0

很好的建议，这是我们已经考虑了一段时间的功能（https://github.com/tidyverts/fable/issues/74）。

我在参数中添加了一个.safely参数model()，它将返回格式化的警告并返回一个null_model()而不是错误（https://github.com/tidyverts/fablelite/commit/1c7dccd7e48211125cf566bcce9ba8c9fc4e47ce）。

Anull_model()是一个没有估计的模型，所有模型方法（forecast()、accuracy()等）都会给出适当结构化NA的值。

我已经设置.safely=TRUE为默认值，所以上面的代码现在给出：

library(fable)
library(tidyverse)
it <-  tsibbledata::global_economy %>%
  filter(Country == "Italy")
fm1 <-  model(.data = it, 
              ARIMA(log(GDP) ~ Population + pdq(3,1,7) +PDQ(5,1,1)),
              ETS(log(GDP)))
#> Warning: 1 error encountered for ARIMA(log(GDP) ~ Population + pdq(3, 1, 7) + PDQ(5, 1, 1))
#> [1] There are no ARIMA models to choose from after imposing the `order_constraint`, please consider allowing more models.
fm1
#> # A mable: 1 x 3
#> # Key:     Country [1]
#>   Country `ARIMA(log(GDP) ~ Population + pdq(3, 1, 7) + PD… `ETS(log(GDP))`
#>   <fct>   <model>                                           <model>        
#> 1 Italy   <NULL model>                                      <ETS(M,Ad,N)>

由reprex 包（v0.2.1）于 2019-05-30 创建

于 2019-05-30T03:41:24.203 回答