Ensayo

'estimacion del igb con todas las variables
equation estimacion.ls igb bonosusa dow_jones embi emision oro petroleo rin tc c

group grupo1 igb bonosusa dow_jones embi emision oro petroleo rin tcmatrix correl = @cor(grupo1)

table tablita
group grupo2 bonosusa dow_jones embi emision oro petroleo rin tc

'estimacion del igb con cada variable
for !variable = 1 to 8
%nombre =grupo2.@seriesname(!variable)
equation estim{!variable}.ls igb {%nombre} c

tablita(2+!variable,1) = estim{!variable}.@r2
tablita(2+!variable,2) = estim{!variable}.@coef(1)

next !variabletablita(1,1) = "RESULTADOS"
tablita(2,1) = "R2"
tablita(2,2) = "coeficiente"

group grupo3
vector(8) r_2

for !a = 1 to 8
%serie = grupo2.@seriesname(!a)
grupo3.add {%serie}

equation est{!a}.lsigb grupo3 c
r_2(!a) = est{!a}.@r2
next !a

d grupo3

group grupo emision exportaciones igb importaciones ipc pbi_indice tasa_interb tc

table resumen ' tabla para resultados (parciales)table final ' tabla final
final(1,2) = "RESULTADOS"
final(2,1) = "Variable"
final(2,2) = "Año de mayor crecimiento"

for !vars = 1 to 8 ' bucle para cada variable económica
'obtención del nombre dela serie
%nombrevar = grupo.@seriesname(!vars)

resumen(1,1+!vars) = %nombrevar ' nombres en la tabla

!max = 0 'valor inicial para el máximo

for !anio = 1 to 19 ' Cada añoresumen(1+!anio,1) = 1991+!anio ' se escriben los años

!suma = 0 ' suma de cada año

for !meses = 1 to 12
!suma = !suma + {%nombrevar}((!anio-1)*12+!meses)
next !meses ' siempre sumará los 12 meses de cada!anio

resumen(1+!anio,1+!vars) = !suma ' escribe el total sumado

if !suma > !max then 'sólo si la suma supera el último máximo definido:
!max = !suma 'el máximo se redefine con la últimasuma evaluada
'guarda el año desde la tabla "resumen"
!aniomax = @val(resumen(1+!anio,1)) 'escribe el año que corresponde a la máxima suma.
endif

next !anio
'scalar max{%nombrevar} = !max...