Nothing
xshewhartrunsrules.arl <- function(mu, c=1, type="12") {
# Shewhart chart
if (type=="1") {
p0 <- pnorm( 3*c, mean=mu ) - pnorm( -3*c, mean=mu)
arls <- 1/(1-p0)
}
# ditto with runs rules
if (type!="1") {
Q <- xshewhartrunsrules.matrix(mu, c=c, type=type)
dimQ <- nrow(Q)
one <- rep(1, dimQ)
I <- diag(1, dimQ)
arls <- solve(I-Q, one)
}
arl <- arls[1]
arl
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.