wfopen(page=IARP) "H:\10. Varios\Rodrigo Morales\Analisis\Program Inputs\FX\BD_IARP.xlsx" range=IARP!A8

group monedas_lat CLP COP PEN
monedas_lat.pcomp monedas_latam
series z_iarp_latam=(monedas_latam-@movav(monedas_latam,60))/@movstdev(monedas_latam,60)

smpl 2008m8 2008m8
scalar x=@mean(fx_mx)
scalar y=@mean(fx_br)
scalar z=@mean(fx_cl)
scalar xx=@mean(fx_pe)
scalar yy=@mean(fx_co)

smpl @all
series fx_mx_norm=fx_mx/x
series fx_br_norm=fx_br/y
series fx_cl_norm=fx_cl/z
series fx_pe_norm=fx_pe/xx
series fx_co_norm=fx_co/yy

series fx_latam=(fx_cl_norm+fx_pe_norm+fx_co_norm)/3

graph IARP_LATAM.line(m) fx_latam z_iarp_latam