# NOT RUN {
n <- 5 # subgroup size
m <- 10 # reference-sample size
dists <- c("Normal", "Normal") # distribution
mu <- c(0, 0) # c(reference sample mean, monitoring sample mean)
nv <- 2 # number of variables
#### Other Parameters
replicates <- 2
targetARL <- 200
isParallel = FALSE
maxIter <- 2
#### Control chart parameters
chart <- "T2"
chart.par <- c(0.005)
t2 <- mcalibrateControlLimit(targetARL = targetARL,n = n, m = m, nv = nv, theta = NULL,
Ftheta = NULL, dists = dists, mu = mu, chart.par = chart.par,
replicates = replicates, chart = chart, isParallel = isParallel,
maxIter = maxIter
)
# }
Run the code above in your browser using DataLab