qcs.xbar {qcr}

Function to plot the Shewhart xbar chart

Description

This function is used to compute statistics required by the xbar chart.

Usage

qcs.xbar(x, ...)

## Default S3 method:
qcs.xbar(
  x,
  var.index = 1,
  sample.index = 2,
  covar.index = NULL,
  covar.names = NULL,
  data.name = NULL,
  sizes = NULL,
  center = NULL,
  std.dev = c("UWAVE-R", "UWAVE-SD", "MVLUE-R", "MVLUE-SD", "RMSDF"),
  conf.nsigma = 3,
  limits = NULL,
  plot = FALSE,
  ...
)

## S3 method for class 'qcd'
qcs.xbar(
  x,
  center = NULL,
  std.dev = c("UWAVE-R", "UWAVE-SD", "MVLUE-R", "MVLUE-SD", "RMSDF"),
  conf.nsigma = 3,
  limits = NULL,
  plot = FALSE,
  ...
)

Arguments

x

Object qcd (Quality Control Data)

...

arguments passed to or from methods.

var.index

a scalar with the column number corresponding to the observed data for the variable (the variable quality). Alternativelly can be a string with the name of the quality variable.

sample.index

a scalar with the column number corresponding to the index each group (sample).

covar.index

optional. A scalar or numeric vector with the column number(s) corresponding to the covariate(s). Alternativelly it can be a character vector with the names of the covariates.

covar.names

optional. A string or vector of strings with names for the covariate columns. Only valid if there is more than one column of data. By default, takes the names from the original object.

data.name

a string specifying the name of the variable which appears on the plots. If not provided it is taken from the object given as data.

sizes

optional. A value or a vector of values specifying the sample sizes associated with each group. For continuous data the sample sizes are obtained counting the non-NA elements##' of the sample.index vector. For attribute variable the argument sizes is required.

center

a value specifying the center of group statistics or the ”target” value of the process.

std.dev

a value or an available method specifying the within-group standard deviation(s) of the process. Several methods are available for estimating the standard deviation in case of a continuous process variable.

conf.nsigma

a numeric value used to compute control limits, specifying the number of standard deviations (if conf.nsigma > 1) or the confidence level (if 0 < conf.nsigma < 1).

limits

a two-value vector specifying control limits.

plot

a logical value indicating should be plotted.

References

Montgomery, D.C. (2000)

Examples

##
##  Continuous data 
##
library(qcr)
data(pistonrings)
str(pistonrings)
pistonrings.qcd<-qcd(pistonrings)

class(pistonrings.qcd)

res.qcs <- qcs.xbar(pistonrings.qcd)
plot(res.qcs,title="Control Chart Xbar for pistonrings I")
summary(res.qcs)  

res.qcd <- state.control(res.qcs)
res.qcs <- qcs.xbar(res.qcd)
plot(res.qcs,title="Control Chart Xbar for pistonrings II")
summary(res.qcs)  

res.qcd <- state.control(res.qcs)
res.qcs <- qcs.xbar(res.qcd)
plot(res.qcs,title="Control Chart Xbar for pistonrings III")
summary(res.qcs)  

x <- droplevels(pistonrings[1:125,])
y <- droplevels(pistonrings[126:200,])

res.qcs <- qcs.xbar(x, data.name="Control Chart Xbar for pistonrings")
plot(res.qcs)

res.qcs <- qcs.add(x = res.qcs, value = y[,c(1,2)]) 
plot(res.qcs)
summary(res.qcs)


res.qcs <- qcs.xbar(pistonrings.qcd, std.dev="UWAVE-SD")
class(res.qcs)
plot(res.qcs,title="Control Chart Xbar for pistonrings (UWAVE-SD)")
summary(res.qcs)