R: Operating Characteristics of an Acceptance Sampling Plan
OCvar
R Documentation
Operating Characteristics of an Acceptance Sampling Plan
Description
The preferred way of creating new objects from the family
of "OCvar" classes.
Usage
OCvar(n, k, type=c("normal"), ...)
Arguments
n
A vector of length 1 giving the sample size.
k
A vector of length 1 giving the absolute distance, in units
of the standard deviation, between the specification limit (based
on the distribution of the items) and the acceptance limit (based
on the distribution of the sample mean). See Schilling (1982) page
226 for details.
type
The possible types relate to the distribution on
which the plans are based on, namely, normal.
...
Additional parameters passed to the class
generating function for each type. See Details for options.
The two forms use a default type of "normal". Note that for the
normal distribution the value of the standard deviation must be
given. It is assumed to be the population standard deviation; this can
be changed by letting s.type="unknown".
The second form provides a the proportion of defectives, pd,
for which the OC function should be calculated (default is
pd=seq(0, 1, 0.01).
Value
An object from the family of OCvar-class, namely of class
OCnormal.
References
Schilling, E. G. (1982), Acceptance Sampling in Quality
Control, Dekker
Guenther, W. C (1977), Sampling Inspection in Statistical
Quality Control, Charles Griffin and Co Ltd
See Also
OC2c-class
Examples
## A normal sampling plan - st. dev. known
x <- OCvar(14, 1.205)
x ## print out a brief summary
plot(x) ## plot the OC curve
plot(x, xlim=c(0,0.4)) ## plot the useful part of the OC curve
## Assess whether the plan can meet desired risk points
assess(x, PRP=c(0.05, 0.95), CRP=c(0.2, 0.1))
summary(x, full=TRUE)
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(AcceptanceSampling)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/AcceptanceSampling/OCvar.Rd_%03d_medium.png", width=480, height=480)
> ### Name: OCvar
> ### Title: Operating Characteristics of an Acceptance Sampling Plan
> ### Aliases: OCvar plot,OCvar-method plot,OCnormal,missing-method
> ### plot,numeric,OCnormal-method show,OCvar-method summary,OCvar-method
> ### Keywords: classes
>
> ### ** Examples
>
> ## A normal sampling plan - st. dev. known
> x <- OCvar(14, 1.205)
> x ## print out a brief summary
Acceptance Sampling Plan (normal)
Standard deviation assumed to be known
Sample 1
Sample size 14.000
Constant k 1.205
> plot(x) ## plot the OC curve
> plot(x, xlim=c(0,0.4)) ## plot the useful part of the OC curve
>
> ## Assess whether the plan can meet desired risk points
> assess(x, PRP=c(0.05, 0.95), CRP=c(0.2, 0.1))
Acceptance Sampling Plan (normal)
Standard deviation assumed to be known
Sample 1
Sample size 14.000
Constant k 1.205
Plan CAN meet desired risk point(s):
Quality RP P(accept) Plan P(accept)
PRP 0.05 0.95 0.95009563
CRP 0.20 0.10 0.08697212
>
> summary(x, full=TRUE)
Acceptance Sampling Plan (normal)
Standard deviation assumed to be known
Sample 1
Sample size 14.000
Constant k 1.205
Detailed acceptance probabilities:
Prop. defective P(accept)
0.00 1.000000e+00
0.01 9.999864e-01
0.02 9.992527e-01
0.03 9.942739e-01
0.04 9.794128e-01
0.05 9.500956e-01
0.06 9.046876e-01
0.07 8.445194e-01
0.08 7.729506e-01
0.09 6.942554e-01
0.10 6.127255e-01
0.11 5.321004e-01
0.12 4.552931e-01
0.13 3.843303e-01
0.14 3.204244e-01
0.15 2.641123e-01
0.16 2.154137e-01
0.17 1.739841e-01
0.18 1.392457e-01
0.19 1.104931e-01
0.20 8.697212e-02
0.21 6.793545e-02
0.22 5.267903e-02
0.23 4.056338e-02
0.24 3.102383e-02
0.25 2.357293e-02
0.26 1.779771e-02
0.27 1.335394e-02
0.28 9.958603e-03
0.29 7.381913e-03
0.30 5.439368e-03
0.31 3.984328e-03
0.32 2.901336e-03
0.33 2.100288e-03
0.34 1.511441e-03
0.35 1.081239e-03
0.36 7.688654e-04
0.37 5.434384e-04
0.38 3.817586e-04
0.39 2.665180e-04
0.40 1.848921e-04
0.41 1.274421e-04
0.42 8.726754e-05
0.43 5.935730e-05
0.44 4.009658e-05
0.45 2.689528e-05
0.46 1.791006e-05
0.47 1.183806e-05
0.48 7.764789e-06
0.49 5.052884e-06
0.50 3.261347e-06
0.51 2.087284e-06
0.52 1.324228e-06
0.53 8.325313e-07
0.54 5.184958e-07
0.55 3.197683e-07
0.56 1.952081e-07
0.57 1.179088e-07
0.58 7.043375e-08
0.59 4.158968e-08
0.60 2.426209e-08
0.61 1.397520e-08
0.62 7.943361e-09
0.63 4.452189e-09
0.64 2.458942e-09
0.65 1.337159e-09
0.66 7.153240e-10
0.67 3.760952e-10
0.68 1.941425e-10
0.69 9.828349e-11
0.70 4.873491e-11
0.71 2.363765e-11
0.72 1.119749e-11
0.73 5.171974e-12
0.74 2.324918e-12
0.75 1.014966e-12
0.76 4.293232e-13
0.77 1.755263e-13
0.78 6.916689e-14
0.79 2.620126e-14
0.80 9.436896e-15
0.81 3.219647e-15
0.82 1.110223e-15
0.83 3.330669e-16
0.84 1.110223e-16
0.85 0.000000e+00
0.86 0.000000e+00
0.87 0.000000e+00
0.88 0.000000e+00
0.89 0.000000e+00
0.90 0.000000e+00
0.91 0.000000e+00
0.92 0.000000e+00
0.93 0.000000e+00
0.94 0.000000e+00
0.95 0.000000e+00
0.96 0.000000e+00
0.97 0.000000e+00
0.98 0.000000e+00
0.99 0.000000e+00
1.00 0.000000e+00
>
>
>
>
>
> dev.off()
null device
1
>