Los datos presentados en la Tabla \(10.4\)son los primeros 20 perfiles observados de un proceso de producción obtenidos durante un monitoreo de proceso de fase II. Los puntos de diseño de todos los perfiles son los mismos, con valores 0.1, 0.25, 0.4, 0.55, 0.7, 0.85, y 1.0. Como en el ejemplo \(10.3\), se cree que el modelo de regresión no lineal de 2 parámetros \((10.30)\) es apropiado para describir estos perfiles. Utilice el gráfico de Shewhart de fase II \((10.26)\) y el gráfico EWMA de fase II \((10.27)–(10.28)\) para monitorear los valores estimados \({(b_{j},d_{j}), j = 1,2,...,20}.\) En ambos gráficos, use \(χ^2_{0.995,2} = 10.597\) como límites de control.

Solucion:

Loas datos de la tabla 10.4 son los sigientes:

Tabla de datos Ejercicio 10.8

Y para el menejo de dichos datos hacemos lo sigiente:

ruta<-"C:\\Users\\jdort\\OneDrive - ut.edu.co\\Escritorio\\Base de datos\\20perfilesDatos.xlsx"
library(readxl)
Datos<-read_excel(ruta)
#View(Datos)
attach(Datos)

Ejemplo 10.3

Tabla de datos, ejemplo 10.3

ruta<-"C:\\Users\\jdort\\OneDrive - ut.edu.co\\Escritorio\\Control de calidad\\cap10-QIU-perfiles\\example103.dat.txt"

datos<- read.table(ruta,    # Archivo de datos TXT indicado como string o ruta completa al archivo
        header = T,       # Si se muestra el encabezado (TRUE) o no (FALSE)
        sep = "",             # Separador de las columnas del archivo
        dec = ".") 
#View(datos)
attach(datos)
## The following objects are masked from Datos:
## 
##     y1j, y2j, y3j, y4j, y5j, y6j, y7j