# NOT RUN {
n <- 2 # subgroup size
m <- 30 # reference-sample size
dist <- "Normal" # distribution
mu <- c(0, 0) # c(reference sample mean, monitoring sample mean)
sigma <- c(1, 1) # c(reference sample sd, monitoring sample sd)
#### Distribution parameters
dist.par <- c(0, 1) # c(location, scale)
#### Other Parameters
replicates <- 2
targetARL <- 370
isParallel = FALSE
#### Control chart parameters
chart <- "Shewhart"
chart.par <- c(3)
shewhart <- calibrateControlLimit(
targetARL = targetARL, targetMRL = NULL, n = n, m = m, theta = NULL,
Ftheta = NULL, dist = dist, mu = mu, sigma = sigma, dist.par = dist.par, chart.par = chart.par,
replicates = replicates, chart = chart, isParallel = isParallel
)
chart <- "CUSUM"
chart.par <- c(0.5, 2.5, 3)
cusum <- calibrateControlLimit(
targetARL = targetARL, targetMRL = NULL, n = n, m = m, theta = NULL,
Ftheta = NULL, dist = dist, mu = mu, sigma = sigma, dist.par = dist.par, chart.par = chart.par,
replicates = replicates, chart = chart, isParallel = isParallel
)
chart <- "EWMA"
chart.par <- c(0.2, 2.962)
ewma <- calibrateControlLimit(
targetARL = targetARL, targetMRL = NULL, n = n, m = m, theta = NULL,
Ftheta = NULL, dist = dist, mu = mu, sigma = sigma, dist.par = dist.par, chart.par = chart.par,
replicates = replicates, chart = chart, isParallel = isParallel
)
# }
Run the code above in your browser using DataLab