AR function

Estimate a AR model