Create lags.R