%Archivo que me lee los datos de un excel y me aplica el filtro de HP y
%luego genera estadísticas descriptivas.
clc
clear
logY=xlsread('datosarg',1,'F2:F65');
logI=xlsread('datosarg',1,'G2:G65');
[T,C]=hpfilter(logY);
sdlogY=std(C)
[E,D]=hpfilter(logI);
sdlogI=std(D)
A=[C E];
[corrYI]=corr(A)
subplot(2,1,1), plot(T,'g')
hold on
plot(logY)
hold off
legend('Tendencia','log(PBI)')
title('Log PBI trimestral')
subplot(2,1,2), plot(E,'g')
hold on 
plot(logI)
hold off
legend('Tendencia','log(inv)')
title('Log de la inversión trimestral')