task15_arofmvc1

function task15_arofmvc1

load temp_values

subplot(2,2,1)
plot(s,rn,s,snet)
title(['rk* and sk* for sample (', metodo,')'],'FontWeight','Bold')
xlabel('Sensor')
ylabel('rk* or sk*')
legend('rk*','sk*',0)
axcont=axis;
axis([1 J axcont(3) axcont(4)]);

subplot(2,2,2)
plot(snet,rn,'.')
title(['NASRP of sample (', metodo,')'],'FontWeight','Bold')
xlabel('sk*')
ylabel('rk*')
subplot(2,2,3)
if cent_ipofmvc1==1
    plot(s,rn-(conce(2)-meanc)*snet)
else
    plot(s,rn-conce(2)*snet)
end
title('Net residual for sample ','FontWeight','Bold')
xlabel('Sensor')
ylabel('Net residual')
axcont=axis;
axis([1 J axcont(3) axcont(4)]);

subplot(2,2,4)
plot(s,e)
title('Residual for sample ','FontWeight','Bold')
xlabel('Sensor')
ylabel('Residual')
axcont=axis;
axis([1 J axcont(3) axcont(4)]);