carico la libreria per il controllo statistico di qualitÃ
library(qcc)
## Package 'qcc' version 2.7
## Type 'citation("qcc")' for citing this R package in publications.
data("pistonrings")
#?pistonrings
head(pistonrings)
## diameter sample trial
## 1 74.030 1 TRUE
## 2 74.002 1 TRUE
## 3 74.019 1 TRUE
## 4 73.992 1 TRUE
## 5 74.008 1 TRUE
## 6 73.995 2 TRUE
seleziono i dati su cui calcolare la carta di controllo
datitrail<-pistonrings[which(pistonrings$trial==TRUE),]
datit<-matrix(datitrail$diameter,ncol=5,byrow=TRUE)
calcolo la carta di controllo per la media
xbar_trail<-qcc(datit,type="xbar",data.name = "Diameter - Trial")
calcolo la carta di controllo per il range
rchart_trail<-qcc(datit,type="R",data.name = "Diameter - Trial",ylim=c(0,0.05))
calcolo la carta di controllo per la deviazione standard
schart_trail<-qcc(datit,type="S",data.name = "Diameter - Trial",ylim=c(0,0.05))