setwd("~/estadistica2020")

#Graficas de control
#sirve para analizar la variabilidad de un proceso
#y saber si esta "bajo control" o no, para esto utiliza
#LCS = 3 desviaciones por encima de la media
#LCI = 3 desviaciones por debajo de la media
#valor medio = la media aritmetica
#valores individuales (i)=xi


#para esto usaremos paquete qicharts
library(qicharts)
## qicharts will no longer be maintained. Please consider moving to qicharts2: https://anhoej.github.io/qicharts2/.
#Dado que estamos utilizando variables aleatorias
#vamos a establecer un valor semilla de 7
#para fines de reproducibilidad
set.seed(9)

#grafico de control de tipo "i" para valores individuales
#crear el vector de variables aleatorias que se distribuyen
#de forma normal

y <- rnorm(24)

#Generar grafico de contorl de tipo i
qic(y, chart = "i")

#desviacion estandar
de = sd(y)
de
## [1] 0.9954197
#media aritmetica
me = mean(y)
me
## [1] -0.02027798
#cuando tenemos un valor extremo
y[18] <-5

#grafica de control de tipo i, con 1 valor extremo
#valor fuera de control
qic(y, chart = "i")

#CONCEPTOS:
#¿que es una grafica de control?
#es un diagrama que sirve para examinar si un proceso se encuentra en una condición estable,
# o para asegurar que se mantenga en esa condición.


#¿Para que sirve una grafica de control?
#Determinar el estado de control de un proceso.
#Diagnostica el comportamiento de un proceso en el tiempo.
#Indica si un proceso ha mejorado o ha empeorado.
#Permite identificar las dos fuentes de variación de un proceso.
#Sirve como una herramienta de detección de problemas.


#¿Que Tipos de gráficas de control existen?
#1. Gráficas de Control de Variables
#Gráfica x – R Promedios y rangos
#Gráfica x – s Promedios y Desviación Estándar
#Gráfica x – R Medianas y Rangos
#Gráfica x – R Lecturas Individuales y Rangos

#2. Gráficas de Control por Atributos
#Gráfica p Porcentaje de unidades o procesos defectuosos
#Gráfica np Número de unidades o procesos defectuosos
#Gráfica c Número de defectos por área de oportunidad
#Gráfica u Porcentaje de defectos por área de oportunidad

#CONCLUSION:
#En esta grafica de control podermos darnos un claro ejemplo de como de 
#utilizan y el gran probecho que podemos tomar de ellas.
#En este ejemplo podemos ver que el limite central es de 0.3,
#el limite inferior es de -3.1 y el superior es de 3.7; en esta grafica
#evaluamos 24 datos en los cuales solo uno sobre pasa el limite superior
#con un valor de 5.