【发布时间】：2016-05-09 03:34:28
【问题描述】：
我有下面的代码，它使用 3 个参数的每个可能组合创建一个矩阵，然后为每组参数创建一个 arima 模型。有时，训练模型的 fitter 步骤会抛出错误并退出。我想修改代码，以便如果 fitter 抛出错误而不是退出它只是跳过参数组合并继续到矩阵中的下一行。任何提示将不胜感激。
代码：
library("fpp")
dataTrain <- window(hsales,end=1989.99)
p1<-1:10
d1<-1:2
q1<-1:7
paramtrix<-expand.grid(p1,d1,q1)
modbuilder <- function(a,b,c) {Arima(dataTrain, order=c(a,b,c))}
fitter <- do.call(Vectorize(modbuilder, SIMPLIFY=FALSE), unname(paramtrix))
更新：
## Forecasting/Accuracy of models
funcCast<-function(x){forecast(x,h=20)$mean}
ModCast<-lapply(fitter,funcCast)
ModAcc<-function(x){accuracy(x,tsTest)[1,5]}
TestAcc<-lapply(ModCast,ModAcc)
##Find Model that minimizes mape
Acc_res<-do.call(rbind,TestAcc)
res_num <- which(Acc_res==min(Acc_res))
res_model<-fitter[[res_num]] ## Error being introduced by NAN
【问题讨论】：
-
将
Arima包装在tryCatch中可能会起作用。在此处尝试代码（但将expr替换为您的Arima(dataTrain, order=c(a,b,c))：stackoverflow.com/questions/36683031/… -
@jaimedash 谢谢！ tryCatch 成功了。
-
酷。我将其发布为答案，但如果它没有按书面形式工作，请随时编辑该答案或发布您自己的答案。欢呼
标签： r loops time-series vectorization do.call