Grafica_u.R

# ========================================
# Control Estadístico de Calidad
# Gráfica u
# Dr. Carlos Téllez Martínez
# Marzo 2015
# Tecnológico de Monterrey Campus Guadalajara
# ========================================

# Lectura de datos
Grafica_u <- read.csv("/Carlos Tellez Martinez/SkyDrive/Clases/Control Estadístico del Proceso/Material 2013/Tema 2/Videos R/Grafica u/Grafica_u.csv")
View(Grafica_u)
Grafica_u

##    Muestra Tamano Disconformidades
## 1        1      5               10
## 2        2      5               12
## 3        3      4                8
## 4        4      3               14
## 5        5      5               10
## 6        6      5               16
## 7        7      5               11
## 8        8      4                7
## 9        9      4               10
## 10      10      4               15
## 11      11      4                9
## 12      12      3                5
## 13      13      3                7
## 14      14      3               11
## 15      15      3               12
## 16      16      5                6
## 17      17      5                8
## 18      18      5               10
## 19      19      5                7
## 20      20      5                5

attach(Grafica_u)
names(Grafica_u)

## [1] "Muestra"          "Tamano"           "Disconformidades"

# Uso del paquete qcc
library("qcc")

## Package 'qcc', version 2.6
## Type 'citation("qcc")' for citing this R package in publications.

Grafica_u <- qcc(data = Disconformidades, type = "u",sizes = Tamano )

# Valores fuera de control
Grafica_u$violations

## $beyond.limits
## integer(0)
## 
## $violating.runs
## numeric(0)

## Proceso dentro de control