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))