X <- rnorm(1000)
chart <- new("SPCCUSUMNormal",Delta=1)
SPCproperty(data=X,nrep=10,
property=new("calARLCUSUM",chart=chart,target=100))
#increase the number of repetitions nrep for real applications.
Run the code above in your browser using DataLab