Pregunta: La experiencia con un cierto tipo de plástico indica que existe una relación entre la dureza (medida en unidades Brinell) de los artículos moldeados a partir del plástico (Y) y el tiempo transcurrido desde la finalización del proceso de moldeado (X). Se propone estudiar la relación mediante un análisis de regresión. Se fabricaron dieciséis lotes del plástico

La experiencia con un cierto tipo de plástico indica que existe una relación entre la dureza (medida en unidades Brinell) de los artículos moldeados a partir del plástico (Y) y el tiempo transcurrido desde la finalización del proceso de moldeado (X). Se propone estudiar la relación mediante un análisis de regresión. Se fabricaron dieciséis lotes del plástico y de cada lote se moldeó un artículo de prueba. Cada artículo de prueba se asignó aleatoriamente a uno de los cuatro niveles de tiempo predeterminados y se midió la dureza después del tiempo transcurrido asignado. Los resultados se muestran a continuación. Suponga que el modelo de regresión de primer orden Yi = β0 + β1Xi + ∈i es apropiado.

mi.archivodedatos <-archivotemplar()
cat(archivo=mi.archivodedatos, "
Tiempo de dureza
199,0 16,0
205,0 16,0
196,0 16,0
200.0 16.0
218.0 24.0
220.0 24.0
215,0 24,0
223,0 24,0
237,0 32,0
234,0 32,0
235,0 32,0
230,0 32,0
250,0 40,0
248,0 40,0
253,0 40,0
246,0 40,0

", sep=" ")
opciones(scipen=999) # suprimir la notación científica
plastico<-read.table(mi.archivo.datos,encabezado=T)
adjuntar(plástico)
nombres(plastico)

[1] "Dureza" "Tiempo"

El fabricante de plástico desea determinar si la dureza media es diferente de 2 unidades Brinell por hora. Por lo tanto, realice una prueba bilateral para decidir si se cumple con este estándar y utilice alfa igual a 0,01. Utilice R. Exprese sus hipótesis, regla de decisión, estadística de prueba y conclusión.