Обработка ошибок с do.call

Question

У меня есть следующий код, который создает матрицу с любой возможной комбинацией из 3 параметров, а затем создает модель аримы для каждого набора параметров. Иногда шаг слесаря, где он обучает модели, выдает ошибку и уходит. Я хотел бы изменить код так, чтобы, если 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)) 

Update:

## 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 

Answer 1

заменить

Arima(dataTrain, order=c(a,b,c)) 

с

tryCatch(Arima(dataTrain, order=c(a,b,c)), error = function(e) {})