var Y Pie R;

varobs Y Pie R;

svar_identification;
upper_cholesky;
end;

sbvar(datafile = data,freq=4,initial_year=1959,final_year=2005,nlags=4);