cgg_ramsey.mod 461 Bytes
Newer Older
MichelJuillard's avatar
MichelJuillard committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var y pie r;
varexo e_y e_pie;

parameters delta sigma alpha kappa;

delta =  0.44;
kappa =  0.18;
alpha =  0.48;
sigma = -0.06;

model(linear);
y  = delta * y(-1)  + (1-delta)*y(+1)+sigma *(r - pie(+1)) + e_y; 
pie  =   alpha * pie(-1) + (1-alpha) * pie(+1) + kappa*y + e_pie;
end;

shocks;
var e_y;
stderr 0.63;
var e_pie;
stderr 0.4;
end;

planner_objective pie^2 + y^2;

ramsey_model(planner_discount=1.0);

stoch_simul(irf=0);