Se ha realizado un experimento en el que se mide la velocidad de un proceso industrial de bordado sobre tela variable respuesta ‘y’), en función de dos variables que influyen en el proceso:

• Tipo de hilo utilizado (‘hilo’) con tres niveles: ‘Algodon’, ‘Poliester’ y ‘Seda’
• Espesor de la tela (‘espesor’).

Se ajusta un modelo de regresión lineal múltiple con estas dos variables explicativas cualitativas (‘Hilo’ y ‘Aguja’).

A continuación se presentan los datos obtenidos (puedes copiarlos y pegarlos en R):

# =======================================================================
datos <- data.frame( 
  hilo    = factor(c("Algodon", "Algodon", "Algodon", "Algodon", 
                  "Poliester", "Poliester", "Poliester", "Poliester",
                  "Seda", "Seda")),
  espesor = c(2.1, 8.5, 10.5, 7.8, 6.9, 5.2, 10.2, 4.5, 10.0, 7.5),
  y = c(1.8, 9.3, 12.0, 8.4, 7.6, 5.8, 11.1, 4.9, 11.1, 8.2)
)
# =======================================================================

Calcular EL LÍMITE INFERIOR del intervalo de predicción con de velocidad promedio esperada del proceso de bordado para aquellos casos en los que se utiliza hilo de Poliéster con un espesor de 5.4.