Code: Select all
compute width=1305
do begin=2001:01,2002:01,22
*
lin(noprint,define=Cash1) dls1 ; # constant
lin(noprint,define=Futures1) dlf1 ; # constant
lin(noprint,define=Cash2) dls2 ; # constant
lin(noprint,define=Futures2) dlf2 ; # constant
group macro Cash1 Futures1 Cash2 Futures2
garch(noprint,p=1,q=1,rvectors=resids0,mvhmatricies=ht0,model=macro,mv=bekk, $
iterations=500,subiterations=100,cvcrit=0.0001) begin begin+width
if %converged<>1;garch(noprint,p=1,q=1,rvectors=resids0,mvhmatricies=ht0,model=macro,mv=bekk, $
iterations=1500,subiterations=500,cvcrit=0.000001,hessian=%xx, $
initial=%BETA) begin begin+width
if %converged<>1;garch(noprint,p=1,q=1,rvectors=resids0,mvhmatricies=ht0,model=macro,mv=bekk, $
iterations=1500,subiterations=500,cvcrit=0.000001,hessian=%xx, $
initial=%BETA) begin begin+width
if %converged<>1;garch(noprint,p=1,q=1,rvectors=resids0,mvhmatricies=ht0,model=macro,mv=bekk, $
iterations=2500,subiterations=1000,cvcrit=0.0001,hessian=%xx, $
initial=%BETA) begin begin+width
*
dis %datelabel(begin)
if %converged<>1;dis 'Model did not converge'
if %converged==1;dis 'Model converged'
com AIC = -2.*%funcval + 2.0*%nreg/%nobs
com HQC = -2.*%funcval + %nreg*2.0*log(log(%nobs))/%nobs
com SBC = -2.*%funcval + %nreg*log(%nobs)/%nobs
set OHR_euro = ht0(2,1)/ht0(2,2)
stat(noprint) OHR_euro
dis 'OHR Euro ' %mean
set OHR_urals = ht0(4,3)/ht0(4,4)
stat(noprint) OHR_urals
dis 'OHR URALS ' %mean
com s = sqrt(%variance/%nobs)
com tratio = %mean/s
dis 'Log Likelihood =' %FUNCVAL
dis 'T-stat' tratio ' aic = ' aic ' hqc = ' hqc ' and sbc = ' sbc
stat(noprint) dls1
com m1=%mean
stat(noprint) dlf1
com m2=%mean
stat(noprint) dls2
com m3=%mean
stat(noprint) dlf2
com m4=%mean
dis m1 m2 m3 m4
SSTAT / (m1)*(m3)*(ht0(2,4))+(m1)*(m4)*(ht0(2,3))+(m2)*(m3)*(ht0(1,4))+(m2)*(m4)*(ht0(1,3)) $
+(m1)*(dls2-dls2{1})*(dlf1-dlf1{1})*(dlf2-dlf2{1})+(m2)*(dls1-dls1{1})*(dls2-dls2{1})*(dlf2-dlf2{1}) $
+(m3)*(dls1-dls1{1})*(dlf1-dlf1{1})*(dlf2-dlf2{1})+(m4)*(dls1-dls1{1})*(dlf1-dlf1{1})*(dls2-dls2{1}) $
-(ht0(1,2))*(ht0(3,4))>>COV4
dis COV4
end do