Calculates the Average Sample Number and Average Run Length as given in Aslam et al. (2014)

xrs(.c, .n, .k1, .k2)

# S3 method for default
xrs(.c, .n, .k1, .k2)

Arguments

.c

Size of the Shift

.n

Sample Size

.k1

Positive Integer

.k2

Positive Integer

Value

Average Sample Number (ASN) and Average Run Length (ARL1) for xbar control charts under repetitive sampling

References

Aslam, M., Azam, M. and Jun, C. (2014). New Attributes and Variables Control Charts under Repetitive Sampling. Industrial Engineering & Management Systems. 1(13):101-106.

Examples

library(magrittr) library(purrr)
#> #> Attaching package: ‘purrr’
#> The following object is masked from ‘package:magrittr’: #> #> set_names
c(0.0, 0.1, 0.20, 0.3, 0.4, 0.5, 1.0, 1.5, 2, 3) %>% purrr::map( function(x) xrs( .c = x , .n = 10 , .k1 = 2.9301 , .k2 = 0.9825))
#> [[1]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 0 14.8 200. #> #> [[2]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 0.1 15.3 130. #> #> [[3]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 0.2 16.8 54.2 #> #> [[4]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 0.3 19.6 21.4 #> #> [[5]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 0.4 23.6 8.85 #> #> [[6]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 0.5 27.9 4.04 #> #> [[7]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 1 16.5 1.02 #> #> [[8]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 1.5 10.4 1.00 #> #> [[9]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 2 10.0 1.00 #> #> [[10]] #> # A tibble: 1 x 3 #> .c ASN ARL1 #> <dbl> <dbl> <dbl> #> 1 3 10. 1 #>