# NOT RUN {
ruv(5, 100)
## EWMA control chart (nominal ARL=500,
## initial estimates based on 100 in-control observations)
chart <- list(chart = "EWMA",
lambda = 0.2,
limit = c(Linf=3.187, Delta=0.427, A=1.5, B=50, m=100))
rcrl(10, chart, 2, 1, 50, 2, 1)
# }
Run the code above in your browser using DataLab