U1A8.R

setwd("~/PROBABILIDAD Y ESTADISTICA (R Studio)")

#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

#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 se estan utilizando variables aleatorias
#vamos a utilizar un valor semilla de 7
set.seed(5)

#Grafico de control d tipo "i" para valores individuales
#crear un vector de variables aleatorias que se distribuyen de forma normal

y  <- rnorm(20)

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

#desviacion estandar
de= sd(y)
de

## [1] 0.9294042

#media aritmetica
me= mean(y)
me

## [1] -0.2805578

#y cuando tenemos un valor extremo

y[15] <-8

#Los gráficos de control sirven para poder analizar el comportamiento de diferentes procesos
#y poder prever posibles fallos de producción mediante métodos estadísticos.

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