Gráficos de control de calidad
Dr. Byron González [email protected]
El objetivo es construir tres gráficos de control de calidad, para analizar el comportamiento del peso en miligramos de cápsulas de fenitoina en un turno de 8 horas. La tabla de datos se encuentra aquí https://tinyurl.com/2grgzgf2. Es necesario descargar la tabla y guardarla en una carpeta específica.
library(readxl)
fenpos10 <- read_excel("fenpos10.xlsx")
str(fenpos10)Colocar las variables en memoria
Las variables contenidas en el objeto “fenpos10” deben colocarse en memoria para su análisis. Esto se consigue de la siguiente forma:
attach(fenpos10)Construir un gráfico de cuantil-cuantil (QQPlot)
Este gráfico es un método no formal para identificar la posibilidad de emplear la distribución normal de probabilidad para modelar el comportamiento de los pesos de cápsulas de fenitoína. Esto es afirmativo, debido a que se observa que los puntos están cercanos a la línea de 45 grados de cuantiles teóricos.
qqnorm(pesos)
qqline(pesos, col="steelblue")Calcular el estadístico de Shapiro & Wilk
Se prueba la hipotesis nula (Ho) de que la distribución observada es igual a la distribución normal. En este caso, dado que el p-value es de 0.4176 se acepta la Ho.
shapiro.test(pesos)Diagramas de dispersión
Se solicitan diagramas de dispersión para cada uno de los momentos de muestreo y observar el comportamiento de los pesos a lo largo del turno de trabajo. En general, se espera observar variabilidad inherente al proceso con cajas de diferente tamaño, sin patrones de tendencia o dispersión excesiva en alguno de las cajas. Se observa alta variabilidad de los pesos en el punto de muestreo 10.
boxplot(pesos ~ muestra, col="orange")Gráfico de dispersión
Se construye un gráfico de dispersión para observar el comportamiento de todos los pesos a lo largo del tiempo
plot(muestra, pesos, cex=2, pch=16, col="green")
lines(tapply(pesos,muestra,mean), lwd=3) Instalar el paquete "qcc" para solicitar los gráficos de control de calidad
Se invoca el paquete "qcc" para construir un gráfico de medias (X-barra), un gráfico de rangos (R) y un gráfico de desviación estándar (S). Previamente se genera un nuevo objeto que incluye el ordenamiento por grupos de pesos de fenitoína.
install.packages("qcc")
library(qcc)
pesos1 <- qcc.groups(pesos,muestra)Solicitar los gráficos de X-barra, R, y S