U1A8.R

#U1A8
setwd("~/VERANOPYE")

#Gráficas de control
#Sirve para analizar al variabilidad de un proceso
#y saber si está "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 aritmética
#Valores individuales (i) = xi

#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(12)

#gráfico de control de tipo " i " para valores individuales
#crear un vector de variables aleatorias que se distribuyen de forma normal
#de forma normal

y <- rnorm(30)

#Generar gráfico de control de tipo i
qic(y, chart="i")

#desviación estándar
de = sd(y)
de

## [1] 0.8771491

#Media aritmética
me=mean(y)
me

## [1] -0.1512189

#Cuando tenemos un valor extremo
y[7] <- 3.5

#Gráfica de control de tipo i, con un valor extremo
#valor fuera de control
qic(y, chart="i")

#CONCLUSIÓN:
#Una gráfica de control sirve para estudiar el comportamiento de distintos datos que pertenecen a la misma clase, como lo pueden ser los precios y ventas de un producto. Esto para verificar que todo se encuentre bajo control y no rebase los límites establecidos, si un dato esta por debajo o encima de los límites significa que algún problema o error pasó en ese preciso momento y poder concluir a qué se debe para poder evitarlo en futuras ocasiones.
#En esta gráfica de control se aprecia que los límites son 2.3 y -2.4, si algún dato se encuentra después de esos valores significa que se encuentra fuera de control. En este caso el 3.5 que se encuentra de color rojo superó el límite superior de 2.3, y los demás 29 datos se encuentra entre los rangos de -2.4 y 2.3, esto quiere decir que se debe estudiar y checar qué ha sucedido en ese punto para que a los demás no les suceda.