PH2XBAR: Build Phase II X-bar control chart with a corrected charting...

Description Usage Arguments Examples

View source: R/CARL.R

Description

Build a Phase II Shewhart X-bar control chart.

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
PH2XBAR(
   X2,
  X1,
  cc = NULL,
  ARL0 = 370,
  interval = c(1, 4),
  CUC.tol = 1e-2,
  CUC.maxIter = 1000,
  EPC.p0 = 0.05,
  EPC.epstilda = 0,
  cc.option = c('EPC', 'CUC'),
  apprx = FALSE,
  ubCons.option = TRUE,
  plot.option = TRUE)

Arguments

X2

Phase II sample

X1

Phase I sample

cc

given charting constant. If cc = NULL, it will be calculated using the CUC and EPC methods.

ARL0

the nominal value of average run length

interval

the searching range of charting constants. The default setting is between 1 and 4.

CUC.tol

tolerance level for the expectation of the conditional average run length for the CUC method. The default setting is 1e-2.

CUC.maxIter

maximum iteration of computation for the CUC method. The default setting is 1000.

EPC.p0

the nominal value of probability for the EPC method. It is not recommended using values greater than 0.5. The default setting is 0.05

EPC.epstilda

the nominal value of tolerance factor for the EPC method. The default setting is 0.

cc.option

the computational option for the charting constant. The default setting is both the CUC and EPC methods.

apprx

the approximation method option. For the default setting, the approximation method does not involve.

ubCons.option

the unbiasing constant option. For the default setting, the unbiasing constant is invovlved and c4 is applied.

plot.option

the plot option. The default setting is to graph the Phase II control chart.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
# Build a Phase II basic Shewhart control chart

data(Ph1data)
data(Ph2data)

X1 <- as.matrix(Ph1data[, 2:4]) ^ (1/3)
X2 <- as.matrix(Ph2data[, 2:4]) ^ (1/3)
X2[which(is.na(X2))] <- mean(X1)

PH2XBAR(
  X2 = X2,
  X1 = X1,
  cc = NULL,
  ARL0 = 370,
  interval = c(1, 4),
  CUC.tol = 1e-2,
  CUC.maxIter = 1000,
  EPC.p0 = 0.05,
  EPC.epstilda = 0,
  cc.option = c('EPC', 'CUC'),
  ubCons.option = TRUE,
  apprx = TRUE,
  plot.option = TRUE) 

bolus123/PH2XBAR documentation built on Aug. 5, 2020, 11:50 a.m.