Description Usage Arguments Value Examples
View source: R/UnivariateObtainAverageRunLength.R
Get the ARL getRL
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | getARL(
  n,
  m,
  theta = NULL,
  Ftheta = NULL,
  dist,
  mu,
  sigma,
  dist.par = c(0, 1, 1),
  chart,
  chart.par,
  scoring = "Z",
  Chi2corrector = "None",
  replicates = 10000,
  isParallel = TRUE,
  print.RL = FALSE,
  progress = FALSE,
  calibrate = FALSE,
  arl0 = 370,
  alignment = "unadjusted",
  constant = NULL,
  absolute = FALSE,
  isFixed = FALSE,
  rounding.factor = NULL
)
 | 
| n | scalar. Subroup size | 
| m | scalar. Reference sample size | 
| theta | scalar. Value corresponig with the  | 
| Ftheta | scalar. Quantile of the data distribution. The values that take are between (0,1). | 
| dist | character string. Select from: 
 | 
| mu | vector. Two elements, the first one is the mean of the reference sample and the second one is the mean of the monitoring sample. | 
| sigma | vector. Two elements, the first one is the sd of the reference sample and the second one is the sd of the monitoring sample. | 
| dist.par | vector. Distribution parameters.  | 
| chart | character string. Selected type of chart. Three options are available: Shewhart, CUSUM, EWMA | 
| chart.par | vector. The size depends on the selected chart: 
 | 
| scoring | character string. If "Z" (normal scores) (default). If "Z-SQ" (normal scores squared). | 
| Chi2corrector | character string. Only when scoring is Z-SQ. Select from 
 If "approx" () (default). If "exact" (normal scores squared). | 
| replicates | scalar. Number of replicates to get the ARL | 
| isParallel | logical. If  | 
| print.RL | logical. If  | 
| progress | logical. If  | 
| calibrate | logical. If  | 
| arl0 | scalar. Expected value of the RL. Default  | 
| alignment | character string. Aligment of the data  
 | 
| constant | scalar. Only used when the  | 
| absolute | logical. If  | 
| isFixed | logical. If  | 
| rounding.factor | scalar. positive value that determine the range between two consecutive rounded values. | 
Multiple output. Select by output$
ARL: scalar. Average Run Length for the RLs of all the replicates.
SDRL: scalar. Standard Deviation Run Length for the RL in all the replicates.
MRL: bolean. Median Run Length for the RLs of all the replicates.
QRL: vector. It retrieve the quantiles (0.05, 0.1, 0.2, 0.25, 0.5, 0.75, 0.8, 0.9, 0.95) for all the RLs.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | n <- 5 # subgroup size
m <- 100 # reference-sample size
dist <- "Normal"
mu <- c(0, 0) # c(reference sample mean, monitoring sample mean)
sigma <- c(1, 1) # c(reference sample sd, monitoring sample sd)
#### Normal distribution parameters
dist.par <- c(0, 1) # c(location, scale)
#### Other Parameters
replicates <- 2
print.RL <- TRUE
isParallel <- FALSE
calibrate <- FALSE
progress <- TRUE
arl0 <- 370
#### Control chart parameters
chart <- "Shewhart"
chart.par <- c(3)
shewhart <- getARL(n, m,
  theta = NULL, Ftheta = NULL, dist, mu, sigma, dist.par = dist.par,
  chart = chart, chart.par = chart.par, print.RL = print.RL,
  replicates = replicates, isParallel = isParallel,
  calibrate = calibrate, arl0 = arl0
)
chart <- "CUSUM"
chart.par <- c(0.25, 4.4181, 3)
cusum <- getARL(n, m,
  theta = NULL, Ftheta = NULL, dist, mu, sigma, dist.par = dist.par,
  chart = chart, chart.par = chart.par, print.RL = print.RL,
  replicates = replicates, isParallel = isParallel,
  calibrate = calibrate, arl0 = arl0
)
chart <- "EWMA"
chart.par <- c(0.2, 2.962)
shewhart <- getARL(n, m,
  theta = NULL, Ftheta = NULL, dist, mu, sigma, dist.par = dist.par,
  chart = chart, chart.par = chart.par, print.RL = print.RL,
  replicates = replicates, isParallel = isParallel,
  calibrate = calibrate, arl0 = arl0
)
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.