# NOT RUN {
##
## Continuous data
##
library(qcr)
data(pistonrings)
str(pistonrings)
pistonrings.qcd<-qcd(pistonrings)
class(pistonrings.qcd)
res.qcs <- qcs.R(pistonrings.qcd)
class(res.qcs)
plot(res.qcs,title="Control Chart R for pistonrings")
summary(res.qcs)
# }
Run the code above in your browser using DataLab