A7U1.R

#Ejercicio 6
#La función set.seed se usa para establecer la 
#semilla aleatoria para todas las funciones de aleatorización. 
#Si está usando R para crear una aleatorización 
#que desea reproducir, primero debe usar set.seed.
#Es un  mecanismo que se utililza de manera frecuente 
#para generar valores de encriptacion/desincriptacion de 
#datos mediante un algortimo de determinacion.
setwd("~/VERANOPYE")
#Graficas de control
#Sirven para analizar la variabilidad de un proceso y saber
#si esta bajo control o no para esto se utliza:
#LCS = 3 desviaciones por encima de la media
#LCS = 3 desviaciones por debajo de la media 
#Valor medio = media aritmetica
#Valores individuales (i) = xi

#Paquete qicharts
library(qicharts)

## qicharts will no longer be maintained. Please consider moving to qicharts2: https://anhoej.github.io/qicharts2/.

#Establecer valor semilla (valor incial con el cual generar 
#valores futuros inciertos).
#Para fines de reproductibilidad
set.seed(5)
#Grafico de control de tipo "i" para valores individuales
#crear un vector de variables aleatorias que se distribuyen
#de forma normal.
y <- rnorm(21)
#Generar grafico de control de tipo "i"
qic(y, chart = "i")

#Desviacion estandar
de=sd(y)
de

## [1] 0.9418214

#media aritmetica
me= mean(y)
me

## [1] -0.2243164

#Cuando tenemos un valor extremo
y[10] <-4
#Grafica de control de tipi i, con un valor extremo
#Valor fuera de control
qic(y, chart = "i")

#Grafica de control
#Nos sirve para analizar los resultados obtenidos con respecto
#a un maedicion previa, esto nos sirve para determinar acciones
#emprender para corregir, mantener o potenciar las actividades 
#reaizadas.