##increase nrep for real applications
X <- rnorm(1000)
chart <- new("SPCCUSUMNormal",Delta=1)
SPCproperty(data=X,nrep=10,
property=new("calARLCUSUM",chart=chart,target=100))
SPCproperty(data=X,nrep=10,
property=new("calhitprobCUSUM",chart=chart,target=0.05,nsteps=1000))
SPCproperty(dat=X,nrep=10,
property=new("hitprobCUSUM",chart=chart,threshold=5,nsteps=100),
covprob=c(0.7,0.8,0.9))
SPCproperty(dat=X,nrep=10,
property=new("ARLCUSUM",chart=chart,threshold=2),
covprob=c(0.7,0.8,0.9))
Run the code above in your browser using DataLab