fixed the AR1 predictions in R