Модель arima дает вам значение бесконечности, если ваши данные не являются последовательными с равным интервалом.ех.Январь, февраль, март и июнь(здесь июнь не одинаково разнесен.) вы можете сделать aic равным нулю.
fitscore<-fit$aic
if ((fitscore=="-Inf")==TRUE||(fitscore=="Inf")==TRUE)
{
fitscore<-0
}