Xbar Control Charts Under Repetitive Sampling

Source: R/xrs.R

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
#>