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