setwd("~/PYE VERANO")
#Gráficas de cont
#sirve para analizar la 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
#Para esto usaremos 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 7
#para fines de reproducibilidad
set.seed(9)
#grafico de control de tipo " i " para valores individuales
#crear un vector de variables aleatorias que se distribuyen
#de forma normal
y <- rnorm(36)
#Generar gráfico de control de tipo i
qic(y, chart = "i")

#desviación estándar
de = sd(y)
de
## [1] 0.9914001
#Media aritmética
me = mean(y)
me
## [1] 0.0225614
#cuando tenemos un valor extremo
y[25] <-8
#grafica de control de tipo i, con 1 valor extremo
#Valor fuera de control
qic(y, chart="i")

#CONCLUSIONES
#El valor central de la gráfica es 3.5, y su valor extremo es 9.
#Un gráfico de control es una herramientaes un diagrama que muestra los valores
#producto de la medición de una característica de calidad, ubicados en una serie
#cronológica. En él establecemos una línea central o valor nominal, que suele ser el
#objetivo del proceso o el promedio histórico, junto a uno o más límites de
#control, tanto superior como inferior, usados para determinar cuándo es
#necesario analizar una eventualidad.
#La estructura de las gráficas contiene una “línea central” (LC), una línea
#superior que marca el “límite superior de control” (LSC), y una línea inferior
#que marca el “límite inferior de control” (LIC). Los puntos contienen
#información sobre las lecturas hechas; pueden ser promedios de grupos de
#lecturas, o sus rangos, o bien las lecturas individuales mismas. Los límites
#de control marcan el intervalo de confianza en el cual se espera que caigan
#los puntos.