%Normaliza las series de resnueva y las filtra
clear

load resnueva
y=resnueva;
for j=1:7
res(:,j)=(y(:,j)-mean(y(:,j)))/std(y(:,j));

end
    res1=res(:,1);
        res2=res(:,2);
    res3 =res(:,3);
    res4=res(:,4);
    res5=res(:,5);
    res6=res(:,6);
    res7=res(:,7);

for i=1:375-15
    res1(i)=mean(res1(i:i+15));
        res2(i)=mean(res2(i:i+15));
    res3(i)=mean(res3(i:i+15));
    res4(i)=mean(res4(i:i+15));
    res5(i)=mean(res5(i:i+15));
    res6(i)=mean(res6(i:i+15));
    res7(i)=mean(res7(i:i+15));


end
res1=res1(1:end-15);
res2=res2(1:end-15);
res3=res3(1:end-15);
res4=res4(1:end-15);
res5=res5(1:end-15);
res6=res6(1:end-15);
res7=res7(1:end-15);



figure
plot(res1)
hold on
%plot(res2,'r')
%hold on
%plot(res3,'g')
%hold on
plot(res4,'k')
hold on
%plot(res5,'c')
%hold on
plot(res6,'g')
hold on
plot(res7,'r')
