wfcreate (wf = issue) u 3131 cd "\\Client\C$\Users\Mike\Desktop\Issuer_Database" ''******************************************''tables************************************************************* ''''estimation results table(760,150) var9_coeff table(760,150) var11_coeff table(760,150) var13_coeff table(760,150) vec9_coeff table(760,150) vec11_coeff table(760,150) vec13_coeff ''cointegrating vectors table(760,150) vec9_co_vec table(760,150) vec11_co_vec table(760,150) vec13_co_vec ''VAR roots tables - after estimation table(760,120) var9_roots table(760,120) var11_roots table(760,120) var13_roots ''********************************************** loop **************************************************************** for !i = 2 to 247 %temp = "\\Client\C$\Users\Mike\Desktop\Issuer_Database\Issuer" + @str(!i) + ".xlsx" '''home use pageload %temp range= !A1:S3131 ''''estimation results table(760,150) var9_coeff1 table(760,150) var11_coeff1 table(760,150) var13_coeff1 table(760,150) vec9_coeff1 table(760,150) vec11_coeff1 table(760,150) vec13_coeff1 ''cointegrating vector table(760,150) vec9_co_vec1 table(760,150) vec11_co_vec1 table(760,150) vec13_co_vec1 '''roots table after VAR is estimated table(760,120) var9_roots1 table(760,120) var11_roots1 table(760,120) var13_roots1 copy untitled\var9_coeff Issuer!i\var9_coeff1 copy untitled\var11_coeff Issuer!i\var11_coeff1 copy untitled\var13_coeff Issuer!i\var13_coeff1 copy untitled\var9_roots Issuer!i\var9_roots1 copy untitled\var11_roots Issuer!i\var11_roots1 copy untitled\var13_roots Issuer!i\var13_roots1 copy untitled\vec9_coeff Issuer!i\vec9_coeff1 copy untitled\vec11_coeff Issuer!i\vec11_coeff1 copy untitled\vec13_coeff Issuer!i\vec13_coeff1 copy untitled\vec9_co_vec Issuer!i\vec9_co_vec1 copy untitled\vec11_co_vec Issuer!i\vec11_co_vec1 copy untitled\vec13_co_vec Issuer!i\vec13_co_vec1 ''******************************************** select sample ************************************************************ sample sample_all @all sample sample1 @first 10/15/2005 '''first half sample sample2 10/15/2005 @last '''second half sample sample3 11/01/2008 @last '''post 2008 financial crisis sample sample4 @first 09/01/2008 '''pre 2008 financial crisis smpl sample4 ''****************************************** '''johansen cointegration test ************************************************ ''coint setmaxerrs 50 !old_count = @errorcount !new_count = 0 scalar counter = 0 group g1 s3 for !j = 9 to 14 step 2 !old_count = @errorcount g1.add s!j freeze(coint_test!j) g1.coint(s,4) !new_count = @errorcount if !new_count > !old_count then !old_count = @errorcount freeze(coint_test!j) g1.coint(s,2) endif !new_count = @errorcount if !new_count > !old_count then !old_count = @errorcount freeze(coint_test!j) g1.coint(s,1) endif !new_count = @errorcount if !new_count > !old_count then table(16,8) coint_test!j endif g1.drop s!j next !j clearerrs ''************************************ ''''fill scalars with # of cointegrating vectors '' ***************************************** for !g = 9 to 14 step 2 scalar c!g vector(5) cc!g for !h = 1 to 5 cc!g(!h) = @val(coint_test!g(13,!h+1)) next !h scalar c!g = @mean(cc!g) if c!g > 0 and c!g < 1 then c!g = 1 endif if c!g > 1 and c!g < 5 then c!g = @round(c!g) endif if c!g = NA then c!g = 0 endif next !g '''****************************************** lag structure *********************************************************************** string cds_lag string cds freeze(cds_unit_test) s3.uroot(adf,const) cds_lag = cds_unit_test(3,1) cds = @mid(cds_lag,13,2) scalar cdsv = @val(cds) if cdsv = NA then cdsv = 1 endif if cdsv > 4 then cdsv = 4 endif ''************************************************* estimate ******************************************************************* setmaxerrs 120 !newer = @errorcount !older = @errorcount for !w = 9 to 14 step 2 if cdsv = 4 then !older = @errorcount if c!w = 0 then var var_est!w.ls 1 4 s3 s!w @ s15 s16 s17 s18 s19 endif if c!w > 0 then var vec_est!w.ec 1 4 s3 s!w @ s15 s16 s17 s18 s19 endif !newer = @errorcount if !newer = !older then clearerrs var!w_coeff1(!i*3,1) = var_est!w.c(1,1) var!w_coeff1(!i*3,2) = var_est!w.c(1,2) var!w_coeff1(!i*3,3) = var_est!w.c(1,3) var!w_coeff1(!i*3,4) = var_est!w.c(1,4) var!w_coeff1(!i*3,5) = var_est!w.c(1,5) var!w_coeff1(!i*3,6) = var_est!w.c(1,6) var!w_coeff1(!i*3,7) = var_est!w.c(1,7) var!w_coeff1(!i*3,8) = var_est!w.c(1,8) ''exogs var!w_coeff1(!i*3,9) = var_est!w.c(1,9) var!w_coeff1(!i*3,10) = var_est!w.c(1,10) var!w_coeff1(!i*3,11) = var_est!w.c(1,11) var!w_coeff1(!i*3,12) = var_est!w.c(1,12) var!w_coeff1(!i*3,13) = var_est!w.c(1,13) var!w_coeff1(!i*3,14) = var_est!w.c(2,1) var!w_coeff1(!i*3,15) = var_est!w.c(2,2) var!w_coeff1(!i*3,16) = var_est!w.c(2,3) var!w_coeff1(!i*3,17) = var_est!w.c(2,4) var!w_coeff1(!i*3,18) = var_est!w.c(2,5) var!w_coeff1(!i*3,19) = var_est!w.c(2,6) var!w_coeff1(!i*3,20) = var_est!w.c(2,7) var!w_coeff1(!i*3,21) = var_est!w.c(2,8) ''exogs var!w_coeff1(!i*3,22) = var_est!w.c(2,9) var!w_coeff1(!i*3,23) = var_est!w.c(2,10) var!w_coeff1(!i*3,24) = var_est!w.c(2,11) var!w_coeff1(!i*3,25) = var_est!w.c(2,12) var!w_coeff1(!i*3,26) = var_est!w.c(2,13) var!w_coeff1((!i*3)+1,1) = var_est!w.@coefse(1,1) var!w_coeff1((!i*3)+1,2) = var_est!w.@coefse(2,1) var!w_coeff1((!i*3)+1,3) = var_est!w.@coefse(3,1) var!w_coeff1((!i*3)+1,4) = var_est!w.@coefse(4,1) var!w_coeff1((!i*3)+1,5) = var_est!w.@coefse(5,1) var!w_coeff1((!i*3)+1,6) = var_est!w.@coefse(6,1) var!w_coeff1((!i*3)+1,7) = var_est!w.@coefse(7,1) var!w_coeff1((!i*3)+1,8) = var_est!w.@coefse(8,1) ''exogs var!w_coeff1((!i*3)+1,9) = var_est!w.@coefse(9,1) var!w_coeff1((!i*3)+1,10) = var_est!w.@coefse(10,1) var!w_coeff1((!i*3)+1,11) = var_est!w.@coefse(11,1) var!w_coeff1((!i*3)+1,12) = var_est!w.@coefse(12,1) var!w_coeff1((!i*3)+1,13) = var_est!w.@coefse(13,1) var!w_coeff1((!i*3)+1,14) = var_est!w.@coefse(1,2) var!w_coeff1((!i*3)+1,15) = var_est!w.@coefse(2,2) var!w_coeff1((!i*3)+1,16) = var_est!w.@coefse(3,2) var!w_coeff1((!i*3)+1,17) = var_est!w.@coefse(4,2) var!w_coeff1((!i*3)+1,18) = var_est!w.@coefse(5,2) var!w_coeff1((!i*3)+1,19) = var_est!w.@coefse(6,2) var!w_coeff1((!i*3)+1,20) = var_est!w.@coefse(7,2) var!w_coeff1((!i*3)+1,21) = var_est!w.@coefse(8,2) ''exogs var!w_coeff1((!i*3)+1,22) = var_est!w.@coefse(9,2) var!w_coeff1((!i*3)+1,23) = var_est!w.@coefse(10,2) var!w_coeff1((!i*3)+1,24) = var_est!w.@coefse(11,2) var!w_coeff1((!i*3)+1,25) = var_est!w.@coefse(12,2) var!w_coeff1((!i*3)+1,26) = var_est!w.@coefse(13,2) vec!w_coeff1(!i*3,2) = vec_est!w.c(1,1) vec!w_coeff1(!i*3,3) = vec_est!w.c(1,2) vec!w_coeff1(!i*3,4) = vec_est!w.c(1,3) vec!w_coeff1(!i*3,5) = vec_est!w.c(1,4) vec!w_coeff1(!i*3,6) = vec_est!w.c(1,5) vec!w_coeff1(!i*3,7) = vec_est!w.c(1,6) vec!w_coeff1(!i*3,8) = vec_est!w.c(1,7) vec!w_coeff1(!i*3,9) = vec_est!w.c(1,8) ''exogs vec!w_coeff1(!i*3,10) = vec_est!w.c(1,9) vec!w_coeff1(!i*3,11) = vec_est!w.c(1,10) vec!w_coeff1(!i*3,12) = vec_est!w.c(1,11) vec!w_coeff1(!i*3,13) = vec_est!w.c(1,12) vec!w_coeff1(!i*3,14) = vec_est!w.c(1,13) vec!w_coeff1(!i*3,16) = vec_est!w.c(2,1) vec!w_coeff1(!i*3,17) = vec_est!w.c(2,2) vec!w_coeff1(!i*3,18) = vec_est!w.c(2,3) vec!w_coeff1(!i*3,19) = vec_est!w.c(2,4) vec!w_coeff1(!i*3,20) = vec_est!w.c(2,5) vec!w_coeff1(!i*3,21) = vec_est!w.c(2,6) vec!w_coeff1(!i*3,22) = vec_est!w.c(2,7) vec!w_coeff1(!i*3,23) = vec_est!w.c(2,8) ''exogs vec!w_coeff1(!i*3,24) = vec_est!w.c(2,9) vec!w_coeff1(!i*3,25) = vec_est!w.c(2,10) vec!w_coeff1(!i*3,26) = vec_est!w.c(2,11) vec!w_coeff1(!i*3,27) = vec_est!w.c(2,12) vec!w_coeff1(!i*3,28) = vec_est!w.c(2,13) vec!w_coeff1(!i*3,1) = vec_est!w.a(1,1) vec!w_coeff1(!i*3,15) = vec_est!w.a(2,1) vec!w_coeff1((!i*3)+1,2) = vec_est!w.@coefse(2,1) vec!w_coeff1((!i*3)+1,3) = vec_est!w.@coefse(3,1) vec!w_coeff1((!i*3)+1,4) = vec_est!w.@coefse(4,1) vec!w_coeff1((!i*3)+1,5) = vec_est!w.@coefse(5,1) vec!w_coeff1((!i*3)+1,6) = vec_est!w.@coefse(6,1) vec!w_coeff1((!i*3)+1,7) = vec_est!w.@coefse(7,1) vec!w_coeff1((!i*3)+1,8) = vec_est!w.@coefse(8,1) vec!w_coeff1((!i*3)+1,9) = vec_est!w.@coefse(9,1) ''exogs vec!w_coeff1((!i*3)+1,10) = vec_est!w.@coefse(10,1) vec!w_coeff1((!i*3)+1,11) = vec_est!w.@coefse(11,1) vec!w_coeff1((!i*3)+1,12) = vec_est!w.@coefse(12,1) vec!w_coeff1((!i*3)+1,13) = vec_est!w.@coefse(13,1) vec!w_coeff1((!i*3)+1,14) = vec_est!w.@coefse(14,1) vec!w_coeff1((!i*3)+1,16) = vec_est!w.@coefse(2,2) vec!w_coeff1((!i*3)+1,17) = vec_est!w.@coefse(3,2) vec!w_coeff1((!i*3)+1,18) = vec_est!w.@coefse(4,2) vec!w_coeff1((!i*3)+1,19) = vec_est!w.@coefse(5,2) vec!w_coeff1((!i*3)+1,20) = vec_est!w.@coefse(6,2) vec!w_coeff1((!i*3)+1,21) = vec_est!w.@coefse(7,2) vec!w_coeff1((!i*3)+1,22) = vec_est!w.@coefse(8,2) vec!w_coeff1((!i*3)+1,23) = vec_est!w.@coefse(9,2) ''exogs vec!w_coeff1((!i*3)+1,24) = vec_est!w.@coefse(10,2) vec!w_coeff1((!i*3)+1,25) = vec_est!w.@coefse(11,2) vec!w_coeff1((!i*3)+1,26) = vec_est!w.@coefse(12,2) vec!w_coeff1((!i*3)+1,27) = vec_est!w.@coefse(13,2) vec!w_coeff1((!i*3)+1,28) = vec_est!w.@coefse(14,2) vec!w_coeff1((!i*3)+1,1) = vec_est!w.@coefse(1,1) vec!w_coeff1((!i*3)+1,15) = vec_est!w.@coefse(1,2) endif endif '''on error decrease lags if (!newer > !older) or (cdsv = 3) then !older = @errorcount if c!w = 0 then var var_est!w.ls 1 3 s3 s!w @ s15 s16 s17 s18 s19 endif if c!w > 0 then var vec_est!w.ec 1 3 s3 s!w @ s15 s16 s17 s18 s19 endif !newer = @errorcount if !newer = !older then clearerrs var!w_coeff1(!i*3,1) = var_est!w.c(1,1) var!w_coeff1(!i*3,2) = var_est!w.c(1,2) var!w_coeff1(!i*3,3) = var_est!w.c(1,3) ' var!w_coeff1(!i*3,4) = var_est!w.c(1,4) var!w_coeff1(!i*3,5) = var_est!w.c(1,4) var!w_coeff1(!i*3,6) = var_est!w.c(1,5) var!w_coeff1(!i*3,7) = var_est!w.c(1,6) ' var!w_coeff1(!i*3,8) = var_est!w.c(1,8) ''exogs var!w_coeff1(!i*3,9) = var_est!w.c(1,7) var!w_coeff1(!i*3,10) = var_est!w.c(1,8) var!w_coeff1(!i*3,11) = var_est!w.c(1,9) var!w_coeff1(!i*3,12) = var_est!w.c(1,10) var!w_coeff1(!i*3,13) = var_est!w.c(1,11) var!w_coeff1(!i*3,14) = var_est!w.c(2,1) var!w_coeff1(!i*3,15) = var_est!w.c(2,2) var!w_coeff1(!i*3,16) = var_est!w.c(2,3) ' var!w_coeff1(!i*3,17) = var_est!w.c(2,4) var!w_coeff1(!i*3,18) = var_est!w.c(2,4) var!w_coeff1(!i*3,19) = var_est!w.c(2,5) var!w_coeff1(!i*3,20) = var_est!w.c(2,6) ' var!w_coeff1(!i*3,21) = var_est!w.c(2,8) ''exogs var!w_coeff1(!i*3,22) = var_est!w.c(2,7) var!w_coeff1(!i*3,23) = var_est!w.c(2,8) var!w_coeff1(!i*3,24) = var_est!w.c(2,9) var!w_coeff1(!i*3,25) = var_est!w.c(2,10) var!w_coeff1(!i*3,26) = var_est!w.c(2,11) var!w_coeff1((!i*3)+1,1) = var_est!w.@coefse(1,1) var!w_coeff1((!i*3)+1,2) = var_est!w.@coefse(2,1) var!w_coeff1((!i*3)+1,3) = var_est!w.@coefse(3,1) ' var!w_coeff1((!i*3)+1,4) = var_est!w.@coefse(4,1) var!w_coeff1((!i*3)+1,5) = var_est!w.@coefse(4,1) var!w_coeff1((!i*3)+1,6) = var_est!w.@coefse(5,1) var!w_coeff1((!i*3)+1,7) = var_est!w.@coefse(6,1) ' var!w_coeff1((!i*3)+1,8) = var_est!w.@coefse(8,1) ''exogs var!w_coeff1((!i*3)+1,9) = var_est!w.@coefse(7,1) var!w_coeff1((!i*3)+1,10) = var_est!w.@coefse(8,1) var!w_coeff1((!i*3)+1,11) = var_est!w.@coefse(9,1) var!w_coeff1((!i*3)+1,12) = var_est!w.@coefse(10,1) var!w_coeff1((!i*3)+1,13) = var_est!w.@coefse(11,1) var!w_coeff1((!i*3)+1,14) = var_est!w.@coefse(1,2) var!w_coeff1((!i*3)+1,15) = var_est!w.@coefse(2,2) var!w_coeff1((!i*3)+1,16) = var_est!w.@coefse(3,2) ' var!w_coeff1((!i*3)+1,17) = var_est!w.@coefse(4,2) var!w_coeff1((!i*3)+1,18) = var_est!w.@coefse(4,2) var!w_coeff1((!i*3)+1,19) = var_est!w.@coefse(5,2) var!w_coeff1((!i*3)+1,20) = var_est!w.@coefse(6,2) ' var!w_coeff1((!i*3)+1,21) = var_est!w.@coefse(8,2) ''exogs var!w_coeff1((!i*3)+1,22) = var_est!w.@coefse(7,2) var!w_coeff1((!i*3)+1,23) = var_est!w.@coefse(8,2) var!w_coeff1((!i*3)+1,24) = var_est!w.@coefse(9,2) var!w_coeff1((!i*3)+1,25) = var_est!w.@coefse(10,2) var!w_coeff1((!i*3)+1,26) = var_est!w.@coefse(11,2) vec!w_coeff1(!i*3,2) = vec_est!w.c(1,1) vec!w_coeff1(!i*3,3) = vec_est!w.c(1,2) vec!w_coeff1(!i*3,4) = vec_est!w.c(1,3) ' vec!w_coeff1(!i*3,5) = vec_est!w.c(1,4) vec!w_coeff1(!i*3,6) = vec_est!w.c(1,4) vec!w_coeff1(!i*3,7) = vec_est!w.c(1,5) vec!w_coeff1(!i*3,8) = vec_est!w.c(1,6) ' vec!w_coeff1(!i*3,9) = vec_est!w.c(1,8) ''exogs vec!w_coeff1(!i*3,10) = vec_est!w.c(1,7) vec!w_coeff1(!i*3,11) = vec_est!w.c(1,8) vec!w_coeff1(!i*3,12) = vec_est!w.c(1,9) vec!w_coeff1(!i*3,13) = vec_est!w.c(1,10) vec!w_coeff1(!i*3,14) = vec_est!w.c(1,11) vec!w_coeff1(!i*3,16) = vec_est!w.c(2,1) vec!w_coeff1(!i*3,17) = vec_est!w.c(2,2) vec!w_coeff1(!i*3,18) = vec_est!w.c(2,3) ' vec!w_coeff1(!i*3,19) = vec_est!w.c(2,4) vec!w_coeff1(!i*3,20) = vec_est!w.c(2,4) vec!w_coeff1(!i*3,21) = vec_est!w.c(2,5) vec!w_coeff1(!i*3,22) = vec_est!w.c(2,6) ' vec!w_coeff1(!i*3,23) = vec_est!w.c(2,8) ''exogs vec!w_coeff1(!i*3,24) = vec_est!w.c(2,7) vec!w_coeff1(!i*3,25) = vec_est!w.c(2,8) vec!w_coeff1(!i*3,26) = vec_est!w.c(2,9) vec!w_coeff1(!i*3,27) = vec_est!w.c(2,10) vec!w_coeff1(!i*3,28) = vec_est!w.c(2,11) vec!w_coeff1(!i*3,1) = vec_est!w.a(1,1) vec!w_coeff1(!i*3,15) = vec_est!w.a(2,1) vec!w_coeff1((!i*3)+1,2) = vec_est!w.@coefse(2,1) vec!w_coeff1((!i*3)+1,3) = vec_est!w.@coefse(3,1) vec!w_coeff1((!i*3)+1,4) = vec_est!w.@coefse(4,1) ' vec!w_coeff1((!i*3)+1,5) = vec_est!w.@coefse(5,1) vec!w_coeff1((!i*3)+1,6) = vec_est!w.@coefse(5,1) vec!w_coeff1((!i*3)+1,7) = vec_est!w.@coefse(6,1) vec!w_coeff1((!i*3)+1,8) = vec_est!w.@coefse(7,1) ' vec!w_coeff1((!i*3)+1,9) = vec_est!w.@coefse(9,1) ''exogs vec!w_coeff1((!i*3)+1,10) = vec_est!w.@coefse(8,1) vec!w_coeff1((!i*3)+1,11) = vec_est!w.@coefse(9,1) vec!w_coeff1((!i*3)+1,12) = vec_est!w.@coefse(10,1) vec!w_coeff1((!i*3)+1,13) = vec_est!w.@coefse(11,1) vec!w_coeff1((!i*3)+1,14) = vec_est!w.@coefse(12,1) vec!w_coeff1((!i*3)+1,16) = vec_est!w.@coefse(2,2) vec!w_coeff1((!i*3)+1,17) = vec_est!w.@coefse(3,2) vec!w_coeff1((!i*3)+1,18) = vec_est!w.@coefse(4,2) ' vec!w_coeff1((!i*3)+1,19) = vec_est!w.@coefse(5,2) vec!w_coeff1((!i*3)+1,20) = vec_est!w.@coefse(5,2) vec!w_coeff1((!i*3)+1,21) = vec_est!w.@coefse(6,2) vec!w_coeff1((!i*3)+1,22) = vec_est!w.@coefse(7,2) ' vec!w_coeff1((!i*3)+1,23) = vec_est!w.@coefse(9,2) ''exogs vec!w_coeff1((!i*3)+1,24) = vec_est!w.@coefse(8,2) vec!w_coeff1((!i*3)+1,25) = vec_est!w.@coefse(9,2) vec!w_coeff1((!i*3)+1,26) = vec_est!w.@coefse(10,2) vec!w_coeff1((!i*3)+1,27) = vec_est!w.@coefse(11,2) vec!w_coeff1((!i*3)+1,28) = vec_est!w.@coefse(12,2) vec!w_coeff1((!i*3)+1,1) = vec_est!w.@coefse(1,1) vec!w_coeff1((!i*3)+1,15) = vec_est!w.@coefse(1,2) endif endif if (!newer > !older) or (cdsv = 2) then !older = @errorcount if c!w = 0 then var var_est!w.ls 1 2 s3 s!w @ s15 s16 s17 s18 s19 endif if c!w > 0 then var vec_est!w.ec 1 2 s3 s!w @ s15 s16 s17 s18 s19 endif !newer = @errorcount if !newer = !older then clearerrs var!w_coeff1(!i*3,1) = var_est!w.c(1,1) var!w_coeff1(!i*3,2) = var_est!w.c(1,2) var!w_coeff1(!i*3,5) = var_est!w.c(1,3) var!w_coeff1(!i*3,6) = var_est!w.c(1,4) ''exogs var!w_coeff1(!i*3,9) = var_est!w.c(1,5) var!w_coeff1(!i*3,10) = var_est!w.c(1,6) var!w_coeff1(!i*3,11) = var_est!w.c(1,7) var!w_coeff1(!i*3,12) = var_est!w.c(1,8) var!w_coeff1(!i*3,13) = var_est!w.c(1,9) var!w_coeff1(!i*3,14) = var_est!w.c(2,1) var!w_coeff1(!i*3,15) = var_est!w.c(2,2) var!w_coeff1(!i*3,18) = var_est!w.c(2,3) var!w_coeff1(!i*3,19) = var_est!w.c(2,4) ''exogs var!w_coeff1(!i*3,22) = var_est!w.c(2,5) var!w_coeff1(!i*3,23) = var_est!w.c(2,6) var!w_coeff1(!i*3,24) = var_est!w.c(2,7) var!w_coeff1(!i*3,25) = var_est!w.c(2,8) var!w_coeff1(!i*3,26) = var_est!w.c(2,9) var!w_coeff1((!i*3)+1,1) = var_est!w.@coefse(1,1) var!w_coeff1((!i*3)+1,2) = var_est!w.@coefse(2,1) var!w_coeff1((!i*3)+1,5) = var_est!w.@coefse(3,1) var!w_coeff1((!i*3)+1,6) = var_est!w.@coefse(4,1) ''exogs var!w_coeff1((!i*3)+1,9) = var_est!w.@coefse(5,1) var!w_coeff1((!i*3)+1,10) = var_est!w.@coefse(6,1) var!w_coeff1((!i*3)+1,11) = var_est!w.@coefse(7,1) var!w_coeff1((!i*3)+1,12) = var_est!w.@coefse(8,1) var!w_coeff1((!i*3)+1,13) = var_est!w.@coefse(9,1) var!w_coeff1((!i*3)+1,14) = var_est!w.@coefse(1,2) var!w_coeff1((!i*3)+1,15) = var_est!w.@coefse(2,2) var!w_coeff1((!i*3)+1,18) = var_est!w.@coefse(3,2) var!w_coeff1((!i*3)+1,19) = var_est!w.@coefse(4,2) ''exogs var!w_coeff1((!i*3)+1,22) = var_est!w.@coefse(5,2) var!w_coeff1((!i*3)+1,23) = var_est!w.@coefse(6,2) var!w_coeff1((!i*3)+1,24) = var_est!w.@coefse(7,2) var!w_coeff1((!i*3)+1,25) = var_est!w.@coefse(8,2) var!w_coeff1((!i*3)+1,26) = var_est!w.@coefse(9,2) vec!w_coeff1(!i*3,2) = vec_est!w.c(1,1) vec!w_coeff1(!i*3,3) = vec_est!w.c(1,2) vec!w_coeff1(!i*3,6) = vec_est!w.c(1,3) vec!w_coeff1(!i*3,7) = vec_est!w.c(1,4) ''exogs vec!w_coeff1(!i*3,10) = vec_est!w.c(1,5) vec!w_coeff1(!i*3,11) = vec_est!w.c(1,6) vec!w_coeff1(!i*3,12) = vec_est!w.c(1,7) vec!w_coeff1(!i*3,13) = vec_est!w.c(1,8) vec!w_coeff1(!i*3,14) = vec_est!w.c(1,9) vec!w_coeff1(!i*3,16) = vec_est!w.c(2,1) vec!w_coeff1(!i*3,17) = vec_est!w.c(2,2) vec!w_coeff1(!i*3,20) = vec_est!w.c(2,3) vec!w_coeff1(!i*3,21) = vec_est!w.c(2,4) ''exogs vec!w_coeff1(!i*3,24) = vec_est!w.c(2,5) vec!w_coeff1(!i*3,25) = vec_est!w.c(2,6) vec!w_coeff1(!i*3,26) = vec_est!w.c(2,7) vec!w_coeff1(!i*3,27) = vec_est!w.c(2,8) vec!w_coeff1(!i*3,28) = vec_est!w.c(2,9) vec!w_coeff1(!i*3,1) = vec_est!w.a(1,1) vec!w_coeff1(!i*3,15) = vec_est!w.a(2,1) vec!w_coeff1((!i*3)+1,2) = vec_est!w.@coefse(2,1) vec!w_coeff1((!i*3)+1,3) = vec_est!w.@coefse(3,1) vec!w_coeff1((!i*3)+1,6) = vec_est!w.@coefse(4,1) vec!w_coeff1((!i*3)+1,7) = vec_est!w.@coefse(5,1) ''exogs vec!w_coeff1((!i*3)+1,10) = vec_est!w.@coefse(6,1) vec!w_coeff1((!i*3)+1,11) = vec_est!w.@coefse(7,1) vec!w_coeff1((!i*3)+1,12) = vec_est!w.@coefse(8,1) vec!w_coeff1((!i*3)+1,13) = vec_est!w.@coefse(9,1) vec!w_coeff1((!i*3)+1,14) = vec_est!w.@coefse(10,1) vec!w_coeff1((!i*3)+1,16) = vec_est!w.@coefse(2,2) vec!w_coeff1((!i*3)+1,17) = vec_est!w.@coefse(3,2) vec!w_coeff1((!i*3)+1,20) = vec_est!w.@coefse(4,2) vec!w_coeff1((!i*3)+1,21) = vec_est!w.@coefse(5,2) ''exogs vec!w_coeff1((!i*3)+1,24) = vec_est!w.@coefse(6,2) vec!w_coeff1((!i*3)+1,25) = vec_est!w.@coefse(7,2) vec!w_coeff1((!i*3)+1,26) = vec_est!w.@coefse(8,2) vec!w_coeff1((!i*3)+1,27) = vec_est!w.@coefse(9,2) vec!w_coeff1((!i*3)+1,28) = vec_est!w.@coefse(10,2) vec!w_coeff1((!i*3)+1,1) = vec_est!w.@coefse(1,1) vec!w_coeff1((!i*3)+1,15) = vec_est!w.@coefse(1,2) endif endif if (!newer > !older) or (cdsv = 1) then ''1 lag !older = @errorcount if c!w = 0 then var var_est!w.ls 1 1 s3 s!w @ s15 s16 s17 s18 s19 endif if c!w > 0 then var vec_est!w.ec 1 1 s3 s!w @ s15 s16 s17 s18 s19 endif !newer = @errorcount if !older = !newer then clearerrs var!w_coeff1(!i*3,1) = var_est!w.c(1,1) ' var!w_coeff1(!i*3,2) = var_est!w.c(1,2) ' var!w_coeff1(!i*3,3) = var_est!w.c(1,3) ' var!w_coeff1(!i*3,4) = var_est!w.c(1,4) var!w_coeff1(!i*3,5) = var_est!w.c(1,2) ' var!w_coeff1(!i*3,6) = var_est!w.c(1,6) ' var!w_coeff1(!i*3,7) = var_est!w.c(1,7) ' var!w_coeff1(!i*3,8) = var_est!w.c(1,8) ''exogs var!w_coeff1(!i*3,9) = var_est!w.c(1,3) var!w_coeff1(!i*3,10) = var_est!w.c(1,4) var!w_coeff1(!i*3,11) = var_est!w.c(1,5) var!w_coeff1(!i*3,12) = var_est!w.c(1,6) var!w_coeff1(!i*3,13) = var_est!w.c(1,7) var!w_coeff1(!i*3,14) = var_est!w.c(2,1) ' var!w_coeff1(!i*3,15) = var_est!w.c(2,2) ' var!w_coeff1(!i*3,16) = var_est!w.c(2,3) ' var!w_coeff1(!i*3,17) = var_est!w.c(2,4) var!w_coeff1(!i*3,18) = var_est!w.c(2,2) ' var!w_coeff1(!i*3,19) = var_est!w.c(2,6) ' var!w_coeff1(!i*3,20) = var_est!w.c(2,7) ' var!w_coeff1(!i*3,21) = var_est!w.c(2,8) ''exogs var!w_coeff1(!i*3,22) = var_est!w.c(2,3) var!w_coeff1(!i*3,23) = var_est!w.c(2,4) var!w_coeff1(!i*3,24) = var_est!w.c(2,5) var!w_coeff1(!i*3,25) = var_est!w.c(2,6) var!w_coeff1(!i*3,26) = var_est!w.c(2,7) var!w_coeff1((!i*3)+1,1) = var_est!w.@coefse(1,1) ' var!w_coeff1((!i*3)+1,2) = var_est!w.@coefse(2,1) ' var!w_coeff1((!i*3)+1,3) = var_est!w.@coefse(3,1) ' var!w_coeff1((!i*3)+1,4) = var_est!w.@coefse(4,1) var!w_coeff1((!i*3)+1,5) = var_est!w.@coefse(2,1) ' var!w_coeff1((!i*3)+1,6) = var_est!w.@coefse(6,1) ' var!w_coeff1((!i*3)+1,7) = var_est!w.@coefse(7,1) ' var!w_coeff1((!i*3)+1,8) = var_est!w.@coefse(8,1) ''exogs var!w_coeff1((!i*3)+1,9) = var_est!w.@coefse(3,1) var!w_coeff1((!i*3)+1,10) = var_est!w.@coefse(4,1) var!w_coeff1((!i*3)+1,11) = var_est!w.@coefse(5,1) var!w_coeff1((!i*3)+1,12) = var_est!w.@coefse(6,1) var!w_coeff1((!i*3)+1,13) = var_est!w.@coefse(7,1) var!w_coeff1((!i*3)+1,14) = var_est!w.@coefse(1,2) ' var!w_coeff1((!i*3)+1,15) = var_est!w.@coefse(2,2) ' var!w_coeff1((!i*3)+1,16) = var_est!w.@coefse(3,2) ' var!w_coeff1((!i*3)+1,17) = var_est!w.@coefse(4,2) var!w_coeff1((!i*3)+1,18) = var_est!w.@coefse(2,2) ' var!w_coeff1((!i*3)+1,19) = var_est!w.@coefse(6,2) ' var!w_coeff1((!i*3)+1,20) = var_est!w.@coefse(7,2) ' var!w_coeff1((!i*3)+1,21) = var_est!w.@coefse(8,2) ''exogs var!w_coeff1((!i*3)+1,22) = var_est!w.@coefse(3,2) var!w_coeff1((!i*3)+1,23) = var_est!w.@coefse(4,2) var!w_coeff1((!i*3)+1,24) = var_est!w.@coefse(5,2) var!w_coeff1((!i*3)+1,25) = var_est!w.@coefse(6,2) var!w_coeff1((!i*3)+1,26) = var_est!w.@coefse(7,2) vec!w_coeff1(!i*3,2) = vec_est!w.c(1,1) ' vec!w_coeff1(!i*3,3) = vec_est!w.c(1,2) ' vec!w_coeff1(!i*3,4) = vec_est!w.c(1,3) ' vec!w_coeff1(!i*3,5) = vec_est!w.c(1,4) vec!w_coeff1(!i*3,6) = vec_est!w.c(1,2) ' vec!w_coeff1(!i*3,7) = vec_est!w.c(1,6) ' vec!w_coeff1(!i*3,8) = vec_est!w.c(1,7) ' vec!w_coeff1(!i*3,9) = vec_est!w.c(1,8) ''exogs vec!w_coeff1(!i*3,10) = vec_est!w.c(1,3) vec!w_coeff1(!i*3,11) = vec_est!w.c(1,4) vec!w_coeff1(!i*3,12) = vec_est!w.c(1,5) vec!w_coeff1(!i*3,13) = vec_est!w.c(1,6) vec!w_coeff1(!i*3,14) = vec_est!w.c(1,7) vec!w_coeff1(!i*3,16) = vec_est!w.c(2,1) ' vec!w_coeff1(!i*3,17) = vec_est!w.c(2,2) ' vec!w_coeff1(!i*3,18) = vec_est!w.c(2,3) ' vec!w_coeff1(!i*3,19) = vec_est!w.c(2,4) vec!w_coeff1(!i*3,20) = vec_est!w.c(2,2) ' vec!w_coeff1(!i*3,21) = vec_est!w.c(2,6) ' vec!w_coeff1(!i*3,22) = vec_est!w.c(2,7) ' vec!w_coeff1(!i*3,23) = vec_est!w.c(2,8) ''exogs vec!w_coeff1(!i*3,24) = vec_est!w.c(2,3) vec!w_coeff1(!i*3,25) = vec_est!w.c(2,4) vec!w_coeff1(!i*3,26) = vec_est!w.c(2,5) vec!w_coeff1(!i*3,27) = vec_est!w.c(2,6) vec!w_coeff1(!i*3,28) = vec_est!w.c(2,7) vec!w_coeff1(!i*3,1) = vec_est!w.a(1,1) vec!w_coeff1(!i*3,15) = vec_est!w.a(2,1) vec!w_coeff1((!i*3)+1,2) = vec_est!w.@coefse(2,1) ' vec!w_coeff1((!i*3)+1,3) = vec_est!w.@coefse(3,1) ' vec!w_coeff1((!i*3)+1,4) = vec_est!w.@coefse(4,1) ' vec!w_coeff1((!i*3)+1,5) = vec_est!w.@coefse(5,1) vec!w_coeff1((!i*3)+1,6) = vec_est!w.@coefse(3,1) ' vec!w_coeff1((!i*3)+1,7) = vec_est!w.@coefse(7,1) ' vec!w_coeff1((!i*3)+1,8) = vec_est!w.@coefse(8,1) ' vec!w_coeff1((!i*3)+1,9) = vec_est!w.@coefse(9,1) ''exogs vec!w_coeff1((!i*3)+1,10) = vec_est!w.@coefse(4,1) vec!w_coeff1((!i*3)+1,11) = vec_est!w.@coefse(5,1) vec!w_coeff1((!i*3)+1,12) = vec_est!w.@coefse(6,1) vec!w_coeff1((!i*3)+1,13) = vec_est!w.@coefse(7,1) vec!w_coeff1((!i*3)+1,14) = vec_est!w.@coefse(8,1) vec!w_coeff1((!i*3)+1,16) = vec_est!w.@coefse(2,2) ' vec!w_coeff1((!i*3)+1,17) = vec_est!w.@coefse(3,2) ' vec!w_coeff1((!i*3)+1,18) = vec_est!w.@coefse(4,2) ' vec!w_coeff1((!i*3)+1,19) = vec_est!w.@coefse(5,2) vec!w_coeff1((!i*3)+1,20) = vec_est!w.@coefse(3,2) ' vec!w_coeff1((!i*3)+1,21) = vec_est!w.@coefse(7,2) ' vec!w_coeff1((!i*3)+1,22) = vec_est!w.@coefse(8,2) ' vec!w_coeff1((!i*3)+1,23) = vec_est!w.@coefse(9,2) ''exogs vec!w_coeff1((!i*3)+1,24) = vec_est!w.@coefse(4,2) vec!w_coeff1((!i*3)+1,25) = vec_est!w.@coefse(5,2) vec!w_coeff1((!i*3)+1,26) = vec_est!w.@coefse(6,2) vec!w_coeff1((!i*3)+1,27) = vec_est!w.@coefse(7,2) vec!w_coeff1((!i*3)+1,28) = vec_est!w.@coefse(8,2) vec!w_coeff1((!i*3)+1,1) = vec_est!w.@coefse(1,1) vec!w_coeff1((!i*3)+1,15) = vec_est!w.@coefse(1,2) endif endif next !w clearerrs ''******************************************* t-stats *********************************************** for !h = 1 to 28 if c9 > 0 then if vec9_coeff1((!i*3),!h) <> " " then vec9_coeff1((!i*3)+2,!h) = @val(vec9_coeff1((!i*3),!h)) / @val(vec9_coeff1((!i*3)+1,!h)) endif else if var9_coeff1((!i*3),!h) <> " " then var9_coeff1((!i*3)+2,!h) = @val(var9_coeff1((!i*3),!h)) / @val(var9_coeff1((!i*3)+1,!h)) endif endif if c11 > 0 then if vec11_coeff1((!i*3),!h) <> " " then vec11_coeff1((!i*3)+2,!h) = @val(vec11_coeff1((!i*3),!h)) / @val(vec11_coeff1((!i*3)+1,!h)) endif else if var11_coeff1((!i*3),!h) <> " " then var11_coeff1((!i*3)+2,!h) = @val(var11_coeff1((!i*3),!h)) / @val(var11_coeff1((!i*3)+1,!h)) endif endif if c13 > 0 then if vec13_coeff1((!i*3),!h) <> " " then vec13_coeff1((!i*3)+2,!h) = @val(vec13_coeff1((!i*3),!h)) / @val(vec13_coeff1((!i*3)+1,!h)) endif else if var13_coeff1((!i*3),!h) <> " " then var13_coeff1((!i*3)+2,!h) = @val(var13_coeff1((!i*3),!h)) / @val(var13_coeff1((!i*3)+1,!h)) endif endif next !h copy Issuer!i\var9_coeff1 untitled\var9_coeff copy Issuer!i\var11_coeff1 untitled\var11_coeff copy Issuer!i\var13_coeff1 untitled\var13_coeff copy Issuer!i\vec9_coeff1 untitled\vec9_coeff copy Issuer!i\vec11_coeff1 untitled\vec11_coeff copy Issuer!i\vec13_coeff1 untitled\vec13_coeff copy Issuer!i\vec9_co_vec1 untitled\vec9_co_vec copy Issuer!i\vec11_co_vec1 untitled\vec11_co_vec copy Issuer!i\vec13_co_vec1 untitled\vec13_co_vec copy Issuer!i\var9_roots1 untitled\var9_roots copy Issuer!i\var11_roots1 untitled\var11_roots copy Issuer!i\var13_roots1 untitled\var13_roots pagedelete Issuer!i next !i