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