Skip to content
Gráficos de control de calidad para cápsulas de Fenitoína
  • AI Chat
  • Code
  • Report
  • Spinner

    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)
    Hidden output

    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)
    Hidden output

    Solicitar los gráficos de X-barra, R, y S