00_PH1XBAR-package: Shewhart X-bar Control Chart in Phase I and in Phase II

Description Details Author(s) References Examples

Description

The utility of this package is in building a Shewhart-type control chart based on new methods for the charting statistics, subgroup means. In Phase I, the chart is based on multivariate normal/t distribution. In Phase II, the chart is based on the uncondtional method or the exceedance probability criterion.

Details

Package: PH1XBAR
Type: Package
Date: 2018-01-05
License: GPL (>= 3)

Function 'PH1XBAR' builds a control chart by multivariate normal distribution. Function 'get.cc' gets a charting constant by multivariate normal distribution.

Author(s)

Yuhui Yao, Subha Chakraborti.

Maintainer: Yuhui Yao <yyao17@crimson.ua.edu>

References

Champ CW, Jones LA. Designing Phase I X-bar charts with small sample sizes. Quality and Reliability Engineering International. 2004;20:497-510 Yao Y, Hilton CW, Chakraborti S. Designing Phase I Shewhart X-bar charts: Extended tables and software. Quality and Reliability Engineering International. 2017;33:2667<e2><80><93>2672 Yao Y, Chakraborti S. Shewhart-Type Charts in Nonstandard Situations. 2018

Examples

 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
# Build a Phase I basic Shewhart control chart
X <- PH1XBAR.data()
PH1XBAR(X, model = 'basic')


# Build a Phase I ANOVA-based Shewhart control chart
Y <- PH2XBAR.data()
PH1XBAR(Y, model = 'ANOVA-based')

# Build a Phase II ANOVA-based Shewhart control chart
set.seed(1234)
Z<- matrix(rnorm(30 * 5, 245.1, sqrt(20.74) + sqrt(3.5)), nrow = 30, ncol = 5)
PH2XBAR(
    Z
    ,PH1.info = list(
    				X = Y
    				, mu = NULL
    				, sigma = NULL
    				, k = NULL
    				, n = NULL
    				, model = "ANOVA-based"
    			)
    ,c.ii.info = list(
    				c.ii = NULL
    				, method = 'both'
    				, ARL0 = 370
    				, p = 0.05
    				, eps = 0.1
    				, interval.c.ii.UC = c(1, 3.2)
    				, interval.c.ii.EPC = c(1, 10)
    				, UC.tol = .Machine$double.eps^0.25
            , EPC.tol = .Machine$double.eps^0.25
    			)
)

bolus123/MNCC documentation built on May 27, 2019, 7:43 a.m.