Code: Select all
@johmle(det=rtrend,lags=2,cv=cv)
# myvar1 myvar2
*
* Normalize to a unit coefficient on myvar1
*
compute cv=cv/cv(1)
*
* This is the error correction series
*
set ect = cv(1)*myvar1+cv(2)*myvar2
*
equation(coeffs=cv) ecteq *
# myvar1 myvar2 constant
*
set dlaudusd 2010:7:22 2017:6:8 = myvar1{0}-mvar1{1}
set dsiadbuynf 2010:7:22 2017:6:8 = myvar2{0}-myvar2{1}
*
system(model=vecm)
variables myvar1 myvar2
lags 1 2
det constant
ect ecteq
end(system)
estimate