six_sigma_ctrl_chart(x, linesColors = c("gray50", "gray65", "gray85", "black", "gray85", "gray65", "gray50"), applyRules = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), rulesColors = c("red", "yellow2", "green", "magenta", "blue", "orange", "brown", "cyan"), seg = c(), keepStats = TRUE, verbose = FALSE)?spcTimeSeriesc("gray50", "gray65", "gray85", "black", "gray85", "gray65", "gray50")c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)c("red", "yellow2", "green", "magenta", "blue", "orange", "brown", "cyan")c()TRUEFALSEhttps://en.wikipedia.org/wiki/Nelson_rules
Lloyd S. Nelson, "Technical Aids," Journal of Quality Technology 16, no. 4 (October 1984), 238-239.
The 8 rules are: 1 One point is more than 3 standard deviations from the mean. 2 Nine (or more) points in a row are on the same side of the mean. 3 Six (or more) points in a row are continually increasing (or decreasing). 4 Fourteen (or more) points in a row alternate in direction, increasing then decreasing. 5 Two (or three) out of three points in a row are more than 2 standard deviations from the mean in the same direction. 6 Four (or five) out of five points in a row are more than 1 standard deviation from the mean in the same direction. 7 Fifteen points in a row are all within 1 standard deviation of the mean on either side of the mean. 8 Eight points in a row exist with none within 1 standard deviation of the mean and the points are in both directions from the mean.
data("spcTimeSeries")
six_sigma_ctrl_chart(spcTimeSeries)
six_sigma_ctrl_chart(spcTimeSeries, verbose=TRUE)
six_sigma_ctrl_chart(spcTimeSeries, seg=c(25, 50, 75))
six_sigma_ctrl_chart(spcTimeSeries, seg=c(25, 50, 75), keepStats=FALSE, verbose=TRUE)
Run the code above in your browser using DataLab