%Archivo que me lee los datos de un excel y me aplica el filtro de HP y
%luego genera estadísticas descriptivas.
loggY=xlsread('datosarg',1,'H3:H65');
loggI=xlsread('datosarg',1,'I3:I65');
[T,C]=hpfilter(loggY);
sdloggI=std(C)
[E,D]=hpfilter(loggI);
sdloggI=std(D)
A=[C E];
[corrYI]=corr(A)
subplot(2,1,1), plot(T,'g')
hold on
plot(C)
hold off
legend('Tendencia','Ciclo')
title('Crecimiento del PBI trimestral')
subplot(2,1,2), plot(E,'g')
hold on 
plot(D)
hold off
legend('Tendencia','Ciclo')
title('Crecimiento de la inversión trimestral')