!kc=@columns(mat_map_v{!version}) ' point in time %tab="tab_evalinfo_v"+@str(!version)+"_rev"+%revv %tabenc="tab_enc_v"+@str(!version)+"_rev"+%revv delete(noerr) {%tab} {%tabenc} table(100,!kc*2+1) {%tab} table(100,!kc*2+1) {%tabenc} for %g {%tab} {%tabenc} if !version=1 then {%g}(1,1)="Monatsende" else {%g}(1,1)= "Monatsmitte" endif next !kk=0 for %rel real final first '--Table Errors---- !ir=1 'which indicator {%tab}(3+!kk,1)=%rel+ "_"+%revv for %id {%indi} !lnam=@length(%id) if !lnam>4 then %bv1=@left(%id,1) %bv2=@mid(%id,!lnam-2,!lnam) %id=%bv1 + %bv2 endif {%tab}(!ir+3+!kk,1)=%id !it=@val(tab_indi(!ir,2)) ' which indicator:1-hard 0-soft AR-0 for !icol=1 to !kc 'information point in time ( 5 ) {%tab}(1,!icol*2)="M"+@str(!icol) !sort_bip=mat_map_vv{!version}(1,!icol) %var1="E_H"+@str(!hor)+"_ar"+@str(!numb)+"_R"+%rel+"_MR"+@str(!sort_bip)+ "_"+%revv if %id<>"ar" then 'all indicators !sort=mat_map_v{!version}(2-!it,!icol) !sort_ip=mat_map_v{!version}(1,!icol) if !sort=NA then {%tab}(!ir+3+!kk,!icol*2)="NA" {%tab}(!ir+3+!kk,!icol*2+1)="NA" else vector(15) verrtab=NA %var2="E_H"+@str(!hor)+"_"+%id+@str(!numb)+"_R"+%rel+"_MR"+@str(!sort)+"_"+%revv call sub_errcal({%var1},{%var2}, verrtab) {%tab}(!ir+3+!kk,!icol*2)=verrtab(3) 'relative rmse {%tab}(!ir+3+!kk,!icol*2+1)=verrtab(12) 't-test endif 'sort else'for the case of AR genr testo=({%var1})^2 scalar test=@sqrt(@mean(testo)) {%tab}(!ir+3+!kk,!icol*2)=test endif 'id ''----Encompassing Test if %id<>"IP" then ' delete(noerr) gr_errenc if !sort_ip=NA then {%tabenc}(!ir+3+!kk,!icol*2)="NA" {%tabenc}(!ir+3+!kk,!icol*2+1)="NA" else if !sort=NA then {%tabenc}(!ir+3+!kk,!icol*2)="NA" {%tabenc}(!ir+3+!kk,!icol*2+1)="NA" else %var1="E_H"+@str(!hor)+"_IP"+@str(!numb)+"_R"+%rel+"_MR"+@str(!sort_ip)+"_"+%revv %var2="E_H"+@str(!hor)+"_"+%id+@str(!numb)+"_R"+%rel+"_MR"+@str(!sort)+"_"+%revv group gr_errenc {%var1} {%var2} vector(2) venc=NA call sub_enct(gr_errenc,venc) {%tabenc}(!ir+2+!kk,!icol*2)=venc(2) {%tabenc}(!ir+2+!kk,!icol*2+1)=venc(1) {%tabenc}(!ir+2+!kk,1)=%id endif endif endif {%tabenc}(1,!icol*2)="M"+@str(!icol) next 'col !ir=!ir+1 next 'ind {%tabenc}(3+!kk,1)=%rel+ "_"+%revv !kk=!kk+!ir+1 next'real /final setline({%tab},2) setline({%tabenc},2) {%tab}.save(t=csv) {%path_results}Same_info\{%country}_{%tab} {%tabenc}.save(t=csv) {%path_results}Same_info\{%country}_{%tabenc} wfsave {%wf2}