Content - eb9be546e553cae023824982da249828c118d1ae - fb62346/R/cchart.Xbar1.R

visit type:

https://github.com/cran/IQCC

12 April 2021, 04:32:59 UTC

Tip revision: 53c14e2d35deeae90e359b99cad0db06d573eb53 authored by Emanuel P. Barbosa on 10 March 2010, 00:00:00 UTC
version 0.5

Tip revision: 53c14e2

cchart.Xbar1.R

cchart.Xbar1 <- function(x, sizes)
{
    a <- rowMeans(x)
    x2bar <- mean(a)
    sigma <- sd.xbar(x)
    qcc(x, type = "xbar", sizes)
	stat <- list(c(x2bar, sigma))
    return(stat)
}