4 analisi del sistema di misura (msa) - Teletu

}
x11()
par(mfrow=c(2,1))
plot(mr,type="b",lwd=2,main=c("R chart ",testo),ylab="Moving
Range",xlab="parts",
ylim=c(min(lcl.r,ucl.r,mr),max(lcl.r,ucl.r,mr)))
abline(h=ucl.r,col=3,lwd=2)
abline(h=lcl.r,col=3,lwd=2)
abline(h=mr.m,col=6,lwd=2)
plot(x,type="b",lwd=2,main=c("X-bar chart ",testo),
ylab="Averages",xlab="parts",
ylim=c(min(lcl.x,ucl.x,x,usl,lsl), max(lcl.x,ucl.x,x,usl,lsl)))
abline(h=ucl.x,col=3,lwd=2)
abline(h=lcl.x,col=3,lwd=2)
abline(h=x.m,col=6,lwd=2)
abline(h=target,lwd=2)
abline(h=usl,lwd=2,col=2)
abline(h=lsl,lwd=2,col=2)
cp