x <- matrix(rnorm(100), ncol=5)
q <- qcc(x, type="xbar", plot=FALSE)
process.capability.sixpack(q, spec.limits = c(-2,2), target=0)
data(pistonrings)
attach(pistonrings)
diameter <- qcc.groups(diameter, sample)
q <- qcc(diameter[1:25,], type="xbar", nsigmas=3, plot=FALSE)
process.capability.sixpack(q, spec.limits=c(73.95,74.05))Run the code above in your browser using DataLab