macro 
lagplot x1.
mcolumn x1 lag_data

lag 1 x1 lag_data.

Plot x1*lag_data;
  title "Lag Plot:  Y(i) vs. Y(i-1)";
  symbol.

Correlation x1 lag_data.
 
endmacro