This function builds the X-bar and R control charts in the same window.
cchart.Xbar_R(x, sizes)Return the two control charts.
data(pistonrings)
attach(pistonrings)
#> The following objects are masked from pistonrings (pos = 3):
#>
#> V1, V2, V3, V4, V5
cchart.Xbar_R(pistonrings[1:25, ], 5)
#> List of 11
#> $ call : language qcc(data = x, type = "R", add.stats = FALSE)
#> $ type : chr "R"
#> $ data.name : chr "x"
#> $ data : num [1:25, 1:5] 74 74 74 74 74 ...
#> ..- attr(*, "dimnames")=List of 2
#> $ statistics: Named num [1:25] 0.038 0.019 0.036 0.022 0.026 ...
#> ..- attr(*, "names")= chr [1:25] "1" "2" "3" "4" ...
#> $ sizes : Named int [1:25] 5 5 5 5 5 5 5 5 5 5 ...
#> ..- attr(*, "names")= chr [1:25] "1" "2" "3" "4" ...
#> $ center : num 0.0228
#> $ std.dev : num 0.00979
#> $ nsigmas : num 3
#> $ limits : num [1, 1:2] 0 0.0481
#> ..- attr(*, "dimnames")=List of 2
#> $ violations:List of 2
#> - attr(*, "class")= chr "qcc"