setwd("~/PROBABILIDAD Y ESTADISTICA 2020")


#Grafica de control
#Sirve para analizar la variabilidad de un proceso
#y saber si esta bajo control o no, para esto se utiliza 
#LCS=3 desviaciones por encima de la media 
#LCI= 3 desviaciones por debajo de la media
#Valor medio = la media aritmética
#Valores individuales (i) = xi

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

#grafico de control de tipo " i " para valores individuales
#crear un vector de variables aleatorias que se distribuyen
#de forma normal
y <- rnorm(32)

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

#desviacion estandar
de = sd(y)
de
## [1] 0.7899866
#media aritmetica
me= mean(y)
me
## [1] 0.4944067
#cuando tenemos un valor extremo
y[10] <-2

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