Is there a better way to get the index of a minimum?
perhaps the function which.min() would do the trick?

which.min(ar.mle$aic)


it won't shorten your code all that much:

ar.mle$aic[which.min(ar.mle$aic)]