https://github.com/cran/IQCC
Raw File
Tip revision: 5c6e6dea621fd5b486441c5e649098ad5a6549e6 authored by Flavio Barros on 15 November 2017, 21:16:12 UTC
version 0.7
Tip revision: 5c6e6de
cchart.Xbar_R.R
#' X-bar and R control charts
#' 
#' This function builds the X-bar and R control charts in the same window.
#' 
#' 
#' @param x The data to be plotted.
#' @param sizes A value or a vector of values specifying the sample sizes
#' associated with each group.
#' @return Return the two control charts.
#' @export
#' @author Daniela R. Recchia, Emanuel P. Barbosa.
#' @examples
#' 
#' data(pistonrings)
#' attach(pistonrings)
#' cchart.Xbar_R(pistonrings[1:25, ])
#' 
cchart.Xbar_R <- function(x, sizes)
{
    par(mfrow = c(1, 2))                 # setup 1 row and 2 columns for plotting
    qcc(x, type = "xbar", add.stats = F)
    qcc(x, type = "R", add.stat = F)
}
back to top