| Type: | Package | 
| Title: | LTPD and AOQL Plans for Acceptance Sampling Inspection by Variables | 
| Version: | 1.2.1 | 
| Date: | 2022-05-01 | 
| Author: | Nikola Kasprikova | 
| Maintainer: | Nikola Kasprikova <nikola.kasprikova@lf1.cuni.cz> | 
| Description: | Calculation of rectifying LTPD and AOQL plans for sampling inspection by variables which minimize mean inspection cost per lot of process average quality. | 
| Depends: | methods | 
| Imports: | graphics | 
| License: | GPL-2 | 
| LazyLoad: | yes | 
| NeedsCompilation: | no | 
| Packaged: | 2022-05-01 06:28:35 UTC; nikola | 
| Repository: | CRAN | 
| Date/Publication: | 2022-05-01 14:20:13 UTC | 
LTPD and AOQL single sampling plans for inspection by variables
Description
Calculation and evaluation of rectifying LTPD and AOQL plans for sampling inspection by variables which minimize the mean inspection cost per lot of process average quality
Introduction
Assume that measurements  of a single
quality characteristic X are independent, identically distributed
normal random variables with parameters \mu  and \sigma^2.
For the quality characteristic X  either  an upper specification
limit U is given (the  item is defective (non-conforming) if its  measurement exceeds U), or
a lower  specification  limit L  is given (the  item  is defective if its
measurement  is  smaller  than  L).  It  is  further assumed that
the unknown  parameter  \sigma  is  estimated  using  the  sample  standard
deviation s.
The inspection procedure is as follows:
Draw a random sample of n items and compute
\bar{x} and s.
Accept the lot if
          {{U - \bar{x}} \over s } \ge k
or
   {{\bar{x} - L}\over s} \ge k. 
The operating  characteristic (see OC) is 
                                   
L(p;n,k) = \int_{k\sqrt n}^\infty g(t;n-1,u_{1-p}\sqrt n) \,dt,
where                               
g(t;n-1,u_{1-p}\sqrt n) 
is probability density function of non-central t distribution with (n-1)
degrees of freedom and noncentrality parameter \lambda=u_{1-p}\sqrt n.
If case that we do not use exact formula for OC and we use the normal distribution
as an approximation of the non-central  t  distribution instead, we have
L(p;n,k) = \Phi \left({u_{1-p}-k \over A} \right),
where
A = \sqrt{{1 \over n} + {k^2 \over 2(n-1)}}  .  
The function \Phi is a standard normal distribution function
and u_{1-p} is a quantile of order 1-p.
The task to be solved is determination of the sample size n and the critical
value k.
LTPD plans for acceptance sampling inspection by variables
In case of acceptance sampling by attributes (each inspected item is classified as either good or defective), there exist a procedure (Dodge and Romig, 1998) for finding sampling plans which minimize the mean number of items inspected per lot of process average quality
I_s = N - (N-n)\cdot L(\bar{p};n,c) 
under the condition which protects   the  consumer   against  the
acceptance of a bad lot –  the probability
of accepting a submitted lot of tolerance quality p_t (consumer's
risk) shall be  0.10,
L(p_t;n,c) = 0.10  
(LTPD single sampling plans),  where the given parameters are N, \bar{p}, p_t. 
N is the number of items in the lot,
\bar{p} is the process average fraction defective,
p_t is the lot tolerance fraction defective  (P_t=100p_t is the lot tolerance per cent defective – denoted LTPD),
n is the number of items in the sample (n<N),
c is the acceptance number (the lot is rejected  when the number
of defective items in the sample is greater than c),
L(p) is the operating characteristic
(the probability of accepting  a submitted lot
with fraction defective p).
LTPD plans for inspection by variables and attributes have been introduced in (Klufa, 1994). Under the same protection of consumer, LTPD plan for inspection by variables and attributes is in many situations more economical with respect to inspection cost than the corresponding Dodge-Romig LTPD attribute sampling plan.
For LTPD  plans for inspection  by variables and attributes (all items from
the  sample are  inspected  by  variables, but  the remainder
of rejected lots is inspected only by attributes), new parameter c_m is introduced, as 
the cost of inspection of one item by
variables divided by the cost of inspection of one item by attributes (usually is c_m > 1). Then the mean  inspection cost  per lot of process  average  quality is
I_{ms}*c_a, where c_a is the cost of inspection of one item by attributes and 
I_{ms} = n\cdot c_m  +  (N-n)\cdot [1 - L(\bar{p};n,k)].
(see Ims). So we search for  the  acceptance  plan  (n,k)  minimizing
the mean inspection  cost per lot of process average quality (or equivalently minimizing I_{ms})
under the condition L(p_t;n,k) = 0.10. 
Then I_{ms} may be expressed as a function of one variable n
I_{ms}(n)=n\cdot c_m+(N-n)\cdot \alpha(n),     
where \alpha(n) is the producer's risk  
(the probability of rejecting a lot of process average quality).
Function planLTPD searches for the sample size n minimizing I_{ms}(n) and gives plan with resulting n and corresponding k as output. In planLTPD if method="napprox", approximate OC is used and the solution is obtained using procedure described in (Klufa, 1994). If method="exact" (default), the optimization procedure searches for n in interval with centre at n resulting from planLTPD(..., method = "napprox").
AOQL plans for acceptance sampling inspection by variables
Under the assumption that each inspected item  is classified  as either  good or defective
(acceptance sampling by attributes) Dodge and Romig (1998) introduced sampling plans (n, c)
which minimize  the  mean  number of items inspected per lot of process average quality, assuming  that the remainder of rejected lots is inspected
I_s = N - (N-n)\!\cdot\!L(\bar p;n,c)                       
under the condition
\max_{0<p<1} AOQ(p) = p_L,                                    
where p_L is the average outgoing quality limit (the given parameter) and AOQ is the average outgoing quality, i. e. the mean fraction defective  after  inspection (assuming that each defective item found is replaced by good one) when   the  fraction  defective  before  inspection was p.
Sampling plans for inspection by variables, which in comparison with sampling plans for inspection by attributes in many situations bring considerable savings in inspection cost, were then introduced in (Klufa, 1997).
Function planAOQL searches for plan minimizing I_{ms}(n) under the condition that AOQ does not exceed the given value p_L.  In  planAOQL if method="napprox", approximate OC is used and the solution is obtained using procedure described in (Klufa, 1997). If method="exact" (default), the optimization procedure searches for n in interval with centre at n resulting from planAOQL(..., method = "napprox").
Rectifying LTPD and AOQL plans minimizing I_{ms} based on EWMA statistics
Another option is to use a procedure based on EWMA statistic. The procedure is as follows: draw a random sample of n items from the lot and compute the sample mean \bar{x} and the statistic T at time t as T_t=\lambda \bar{x}+(1-\lambda)T_{t-1}, where \lambda
is a smoothing constant (usually between 0 and 1). Accept the lot if
  
\frac{U-T_t}{\sigma} \ge k
or
  \frac{T_t-L}{\sigma} \ge k. 
The operating characteristic is (see e.g. (Aslam et al., 2015)) 
  L(p,n,k)=\Phi((u_{1-p}-k)A),  
where  
  A=\sqrt{\frac{n(2-\lambda)}{\lambda}},  
where the function \Phi  is a standard normal distribution function and  u_{1-p} is a quantile of order  1-p (the unique root of the equation  \Phi(u)=1-p).
Similarly for the unknown  \sigma case, when the sample standard deviation is used in place of  \sigma - the operating characteristic is then (see e.g. Aslam et al., 2015) 
L(p)=\Phi(u_{1-p}c_4-k)\sqrt{\frac{1}{\frac{\lambda}{ n(2-\lambda)}+k^2(1-{c_4}^2) }},
where c_4=\sqrt{(2/(n-1))}\frac{\Gamma(n/2)}{\Gamma((n-1)/2)}.
Author(s)
Nikola Kasprikova
Maintainer: Nikola Kasprikova <data@tulipany.cz>
References
Aslam, M., Azam, M., and Jun, C.: A new lot inspection procedure based on exponentially weighted moving average. International Journal of Systems Science 46, 1392 - 1400, 2015.
Dodge, H. F. - Romig, H. G.: Sampling Inspection Tables: Single and Double Sampling. John Wiley, 1998.
Klufa, J.: Acceptance Sampling by Variables when the Remainder of Rejected Lots is Inspected. Statistical Papers, Vol.35, 337 - 349, 1994.
Klufa, J.: Exact calculation of the Dodge-Romig LTPD single sampling plans for inspection by variables. Statistical Papers, Vol. 51(2), 297-305, 2010.
Klufa J,: Dodge-Romig AOQL single sampling plans for inspection by variables. Statistical Papers 38: 111 - 119, 1997.
See Also
planLTPD, planAOQL, OC, AOQ, Ims
Examples
# calculation of LTPD plan
zz=planLTPD(N=1000,pt=0.1,pbar=0.001);zz
plot(zz);
# create another plan
zz2=new("ACSPlan", n=16, k=2.71)
plot(zz2,xl=0.001, xu=0.15, xlabm="fraction non-conforming",
ylabm="probability of acceptance",typem="l",typeOC="exact")
plot(new("ACSPlan", n=20, k=2.58555),typeOC="ewmaSK",lam=0.95)
# calculation of AOQL plan
planAOQL(N=1000,pbar=0.005,pL=0.01, method="napprox", cm=1.5)
Class ACSPlan
Description
Class for single-sample plan of sampling inspection by variables. The plan is specified by sample size n and critical value k.
Objects from the Class
Objects can be created by calls of the form new("ACSPlan", ...).
Objects represent sampling plan.
Slots
- n:
- Object of class - "numeric", sample size, i. e. number of items to be inspected
- k:
- Object of class - "numeric", critical value
Methods
- k
- signature(object = "ACSPlan"): accessor function for extraction of critical value of the sampling plan
- n
- signature(object = "ACSPlan"): accessor function for extraction of sample size of the sampling plan
- plot
- signature(x = "ACSPlan"): function for getting operating characteristics plot of the sampling plan
See Also
Examples
showClass("ACSPlan")
Average outgoing quality
Description
Average outgoing quality is the mean fraction defective after inspection when the fraction defective before inspection was p, lot size is N and plan (n,k) is used for sampling inspection. The average outgoing quality (assuming that all defective items found are replaced by good ones) is approximately
AOQ(p)=\left(1-\frac{n}N\right)\!\cdot p\cdot\!L(p;n,c).
Usage
AOQ(p,n,k,N, type=c("exact", "napprox","ewmaSK","ewma2"),lam=1)
Arguments
| p | fraction defective before inspection | 
| n | sample size | 
| k | critical value | 
| N | lot size (number of items in the lot) | 
| type | type of operating characteristic, see  | 
| lam | smoothing parameter for the EWMA statistic, default 1 | 
Value
single value
See Also
Examples
AOQ(0.002,41,2.057083,1000)
Inspection cost function
Description
mean inspection cost per lot of process average quality, assuming that the sample is inspected by variables and the remainder of rejected lots is inspected by attributes, divided by parameter cm (cost of inspecting one item by variables divided by cost of inspecting the item by attributes)
Usage
Ims(n, k, N,  pbar, cm = 1,type = c("exact", "napprox","ewmaSK","ewma2"),lam=1)
Arguments
| n | sample size | 
| k | critical value of the samping plan | 
| N | lot size (number of items in the lot) | 
| pbar | process average fraction defective | 
| cm | cost of inspection of one item by variables divided by cost of inspection of the item by attributes, default value 1 | 
| type | type of  | 
| lam | smoothing parameter in case that EWMA statistic is used | 
Value
single value
See Also
Examples
Ims(20, 2.58555,1000, 0.001 ,1.5,type="ewmaSK",lam=1 )
Operating characteristic
Description
Calculation of probability of acceptance of a lot with fraction defective p
when using plan (n, k) for sampling inspection
Usage
OC(p, n, k, type = c("exact", "napprox","ewmaSK","ewma2"),lam=1)
Arguments
| p | fraction defective | 
| n | sample size | 
| k | critical value | 
| type | function used for operating characteristic;  | 
| lam | smoothing parameter in case that EWMA statistic is used | 
Value
probability of acceptance of a lot (single number)
References
Jennett, W. J. - Welch, B. L.: The Control of Proportion Defective as Judged by a Single Quality Characteristic Varying on a Continuous Scale, Supplement to the Journal of the Royal Statistical Society, Vol. 6, No. 1, pp. 80-88, 1939.
Johnson, N. L. - Welch, B. L.: Applications of the Non-Central t-Distribution, Biometrika, Vol. 31, No. 3/4, pp. 362-389, 1940.
Examples
OC(p=0.1,n=85,k=2.44)
Break-even value of cm parameter
Description
Break-even value of c_m parameter (which is ratio of cost
of inspection of one item by variables to cost of inspection of the item by
attributes), i. e. the value of  c_m for which mean inspection cost per lot of process average quality for inspection by variables and attributes is
equal to mean inspection cost per lot of process average quality for inspection
by attributes, using plan (n, c).
Usage
cmBE(N, pbar,px,n,c,type=c("LTPD","AOQL"),
type2 = c("exact", "napprox","ewmaSK","ewma2"),lam=1)
Arguments
| N | lot size (number of items in the lot) | 
| pbar | process average fraction defective | 
| px | lot tolerance fraction defective  | 
| n | sample size of benchmark plan for sampling inspection by attributes | 
| c | acceptance number of benchmark plan for sampling inspection by attributes | 
| type | type of acceptance sampling plan;  | 
| type2 | type of OC to be used | 
| lam | smoothing parameter in case that the EWMA statistic is to be used, defaults to 1 | 
Value
single number
References
Kasprikova, N. and Klufa, J.: AOQL Sampling Plans for Inspection by Variables and Attributes Versus the Plans for Inspection by Attributes. Quality Technology & Quantitative Management, 12/6. 2015.
See Also
Examples
cmBE(N=1000,pbar=0.001,px=0.01,n=80,c=0,type="LTPD",type2="exact");
Function for extracting critical value
Description
accessor function for extracting critical value from sampling plan
Usage
k(object)
Arguments
| object | sampling plan | 
Value
single value
See Also
codeACSPlan-class,
Examples
# first create an acceptance sampling plan
planek=new("ACSPlan",n=100,k=3)
k(planek)
Methods for Function k
Description
Methods for function k 
Methods
- signature(object = "ACSPlan")
- 
method for extracting critical value kfrom object ofACSPlan-class(acceptance sampling plan)
Function for sample size extraction
Description
function for sample size extraction from acceptance sampling plan
Usage
n(object)
Arguments
| object | sampling plan | 
Value
single value
See Also
Examples
# first create an acceptance sampling plan
planek=new("ACSPlan",n=100,k=3)
n(planek)
Methods for Function n
Description
Methods for function n 
Methods
- signature(object = "ACSPlan")
- 
method for extracting sample size nfrom object of classACSPlan-class(acceptance sampling plan)
Calculation of AOQL plan for sampling inspection by variables
Description
Calculation of AOQL plan (sample size n and critical value k) for sampling inspection by variables. Plans minimize mean inspection cost per lot of process average quality and at the same time satisfy limit on average outgoing quality (see AOQ).
Usage
planAOQL(N, pbar, pL, method = c("exact", "napprox","ewmaSK","ewma2"), cm = 1,
	intdif = 20,lam=1)
Arguments
| N | lot size (number of items in the lot) | 
| pbar | process average fraction defective | 
| pL | average outgoing quality limit | 
| method | type of  | 
| cm | parameter used in cost function of plans (see  | 
| intdif | parameter used in finding  | 
| lam | smoothing parameter in case that EWMA statistic is used | 
Value
ACSPlan-class object
References
Klufa J (1997) Dodge-Romig AOQL single sampling plans for inspection by variables. Statistical Papers 38: 111 - 119
See Also
LTPDvar-package, OC, AOQ, ACSPlan-class, Ims
Examples
# find AOQL plan
planAOQL(N=1000,pbar=0.005,pL=0.01, method="napprox", cm=1.5);
planAOQL(N=8000, pbar=0.003, pL=0.01, cm=1.5,method="ewmaSK", lam=0.9,intdif=40);
planAOQL(N=8000, pbar=0.003, pL=0.01, cm=1.5,method="ewma2", lam=0.9);
Calculation of LTPD plan for sampling inspection by variables
Description
Calculation of LTPD plan (sample size n and critical value k) for sampling inspection by variables
Usage
planLTPD(N, pt, pbar, b = 0.1, cm = 1,method = c("exact", "napprox","ewma2","ewmaSK" ),
intdif = 20,lam=1)
Arguments
| N | lot size (number of items in the lot) | 
| pt | lot tolerance fraction defective | 
| pbar | process average fraction defective | 
| b | probability of accepting a lot of tolerance quality  | 
| cm | parameter used in cost function of plans (see  | 
| method | type of  | 
| intdif | parameter used in finding  | 
| lam | smoothing parameter in case that EWMA statistic is used | 
Value
An instance of ACSPlan-class, with sample size in slot n and critical value in slot k.
References
Klufa, J.: Exact calculation of the Dodge-Romig LTPD single sampling plans for inspection by variables. Statistical Papers, Springer, Vol. 51(2), pages 297-305, 2010.
See Also
LTPDvar-package, OC, ACSPlan-class, Ims
Examples
# find LTPD plan
planLTPD(N=1000,pt=0.1,pbar=0.001);
planLTPD(1000, 0.01,0.001,cm=1.5,b=0.1,method="ewmaSK",lam=0.9,intdif=60);
planLTPD(1000, 0.01,0.001,cm=1.5,b=0.1,method="ewma2",lam=0.9);
Methods for Function plot in Package graphics
Description
Methods for function plot in package graphics
Methods
- signature(x = "ACSPlan")
- 
method for plotting OC(operating characteristic, i. e. curve showing probability of acceptance of a lot with fraction defectivep) for acceptance sampling plan (object of classACSPlan-class)
- signature(x = "ANY")