# calibrate CUSUM chart to an in-control ARL of 100
# run with a larger number of replications in real examples!
X <- rnorm(100) #observed data
chart <- new("SPCCUSUMNormal",Delta=1) # CUSUM chart with normal observations
SPCproperty(data=X,nrep=15,
property=new("calARLCUSUM",chart=chart,target=100))
Run the code above in your browser using DataLab