Run chart.R

# Import the SixSigma package
library(SixSigma)

# Create 50 random data points
x <- rnorm(50 ,15, 5)

# Build the run chart
plot(x,                        
     type = "b",              
     pch  = 16,                 
     ylim = c(0,30),           
     axes = FALSE,             
     main = "Run Chart Title", 
     sub  = "Chart Subtitle",  
     xlab = "Run",            
     ylab = "y (measure)")     
axis(1,                        
     at = 0:50,                
     cex.axis = 0.7)           
axis(2)                        
box()                          
grid()                         
abline(h = 15 ,               
       lwd = 2)