%% Simulate 150 data form SW(2007) with 4 shocks 

close all
clear all
clc

dynare swmodel_true
ir_true = oo_.irfs;
save database c inve y lab pinf w r 
save ir_true ir_true
data_D = [ y c inve w lab r pinf];
rank(cov(data_D))