library(qcc)
data(pistonrings)
diameter = with(pistonrings, qcc.groups(diameter, sample))
T1=100 # Set the process in-control time to signal is at least 100 samples.
p1=0.05 # Set the probability of guaranteed in-control signals is 5%.
#Calculation of two-sided individual percentile-based Xbar for diameter data.
Q11<- pbcc(diameter,T1, p1, type="Xbar")
# Plot two-sided individual percentile-based Xbar for diameter data.
plot(Q11)
# Calculation of One-sided individual percentile-based S2 for diameter data.
Q12<- pbcc(diameter,T1, p1, type="S2", sided="one")
# # Plot one-sided individual percentile-based S2 for diameter data.
plot(Q12)
# Calculation of two-sided joint percentile-based Xbar and S for diameter data.
Q13<- pbcc(diameter,T1, p1, type="Xbar-S", sided="two")
# Plot two-sided joint percentile-based Xbar-S control chart for diameter data.
plot(Q13)
Run the code above in your browser using DataLab