lagSelect function

Select the optimal number of lags, given criteria