# compute 2-sided CI for the ARL of a CUSUM control chart assuming normality
X <- rnorm(100) #observed data
chart <- new("SPCCUSUMNormal",Delta=1) # CUSUM chart with normal observations
SPC2sidedconfint(data=X,nrep=100,covprob=0.95,
property=new("ARLCUSUM",chart=chart,threshold=4))
Run the code above in your browser using DataLab