var Y Pie R;
model;
Y = 0;
Pie = 0;
R = 0;
end;
varobs Y Pie R;
svar_identification;
exclusion constants;
upper_cholesky;
sbvar(datafile = data,freq=4,initial_year=1959,final_year=2005,nlags=4);