2005-02-19 20:13:45 +01:00
|
|
|
var dx dy x y;
|
|
|
|
varexo e_x e_y;
|
|
|
|
|
|
|
|
parameters rho_x rho_y b a1 a2;
|
|
|
|
|
|
|
|
rho_x = 0.5;
|
|
|
|
rho_y = -0.3;
|
|
|
|
b = 1;
|
|
|
|
a1 = -0.1;
|
|
|
|
a2 = 0.2;
|
|
|
|
|
|
|
|
model;
|
|
|
|
dx = rho_x*dx(-1)+a1*(x(-1)-b*y(-1))+e_x;
|
|
|
|
dy = rho_y*dy(-1)+a2*(x(-1)-b*y(-1))+e_y;
|
|
|
|
x = x(-1)+dx;
|
|
|
|
y = y(-1)+dy;
|
|
|
|
end;
|
|
|
|
|
|
|
|
estimated_params;
|
|
|
|
rho_x,NORMAL_PDF,0.5,0.1;
|
|
|
|
rho_y,NORMAL_PDF,-0.3,0.1;
|
|
|
|
b,NORMAL_PDF,1,0.1;
|
|
|
|
a1,NORMAL_PDF,-0.1,0.1;
|
|
|
|
a2,NORMAL_PDF,0.2,0.1;
|
|
|
|
|
|
|
|
stderr e_x,INV_GAMMA_PDF,0.01,inf;
|
|
|
|
stderr e_y,INV_GAMMA_PDF,0.01,inf;
|
|
|
|
end;
|
|
|
|
|
|
|
|
varobs dx dy;
|
|
|
|
|
2008-06-12 18:01:43 +02:00
|
|
|
unit_root_vars x y;
|
2008-09-25 14:29:35 +02:00
|
|
|
estimation(datafile=data2,nobs=100,mh_replic=0,lik_init=2);
|