npqcs.r | R Documentation |
This function is used to compute statistics required by the r chart.
npqcs.r(x, ...) ## Default S3 method: npqcs.r( x, G, data.name = NULL, limits = NULL, method = c("Tukey", "Liu", "Mahalanobis", "RP", "LD"), alpha = 0.01, plot = FALSE, ... ) ## S3 method for class 'npqcd' npqcs.r( x, data.name, limits = NULL, method = c("Tukey", "Liu", "Mahalanobis", "RP", "LD"), alpha = 0.01, plot = FALSE, ... )
x |
An object npqcd (Non parametric Quality Control Data) |
... |
arguments passed to or from methods. |
G |
The x as a matrix, data frame or list. If it is a matrix or data frame, then each row is viewed as one multivariate observation. |
data.name |
a string that specifies the title displayed on the plots. If not provided it is taken from the name of the object x. |
limits |
a two-value vector specifying the control limits lower and central. |
method |
Character string which determines the depth function used. method can be "Tukey" (the default), "Liu", "Mahalanobis", "RP" Random Project or "LD" Likelihood depth. |
alpha |
it is the the significance level (0.01 for default) |
plot |
a logical value indicating it should be plotted. |
Regina Liu (1995)
## Not run: library(qcr) set.seed(356) mu<-c(0,0) Sigma<- matrix(c(1,0,0,1),nrow = 2,ncol = 2) u <- c(2,2) S <- matrix(c(4,0,0,4),nrow = 2,ncol = 2) G <- rmvnorm(540, mean = mu, sigma = Sigma) x<- rmvnorm(40,mean=u,sigma = S) x <- rbind(G[501:540,],x) M <- G[1:500,] data.npqcd <- npqcd(x,M) str(data.npqcd) res.npqcs <- npqcs.r(data.npqcd,method = "Liu", alpha=0.025) str(res.npqcs) summary(res.npqcs) plot(res.npqcs,title =" r Control Chart") ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.