Sesión 2 · Lección 04

04 Correlación y regresión lineal simple y múltiple

Inferencia y regresión RAA4

Objetivos. Cuantificar la asociación lineal entre variables de proceso y ajustar, interpretar y usar para predicción modelos de regresión lineal simple y múltiple. · RAA4

1. Correlación

El coeficiente de correlación de Pearson mide la fuerza de la asociación lineal:

r=∑(xi−xˉ)(yi−yˉ)∑(xi−xˉ)2∑(yi−yˉ)2,−1≤r≤1.r = \frac{\sum (x_i-\bar{x})(y_i-\bar{y})}{\sqrt{\sum (x_i-\bar{x})^2\sum (y_i-\bar{y})^2}}, \qquad -1 \le r \le 1 .
  • ∣r∣|r| cercano a 1: relación lineal fuerte; cercano a 0: no hay relación lineal (puede haber una curva).
  • Correlación no implica causalidad: en datos observacionales puede haber variables ocultas. La causalidad se establece con experimentos (ASC22).
  • Siempre grafica: datos muy distintos pueden tener el mismo rr (cuarteto de Anscombe).

Prueba H0:ρ=0H_0: \rho = 0: cor.test(x, y).

2. Regresión lineal simple

yi=β0+β1xi+εi,εi∼N(0,σ2) independientes.y_i = \beta_0 + \beta_1 x_i + \varepsilon_i, \qquad \varepsilon_i \sim N(0,\sigma^2)\ \text{independientes}.

Mínimos cuadrados

Se eligen β^0,β^1\hat\beta_0, \hat\beta_1 que minimizan ∑(yi−y^i)2\sum (y_i-\hat{y}_i)^2:

β^1=SxySxx=∑(xi−xˉ)(yi−yˉ)∑(xi−xˉ)2,β^0=yˉ−β^1xˉ.\hat\beta_1 = \frac{S_{xy}}{S_{xx}} = \frac{\sum (x_i-\bar{x})(y_i-\bar{y})}{\sum (x_i-\bar{x})^2}, \qquad \hat\beta_0 = \bar{y} - \hat\beta_1\bar{x} .
  • β^1\hat\beta_1: cambio estimado en la media de yy por cada unidad que aumenta xx.
  • β^0\hat\beta_0: media de yy cuando x=0x = 0 (a menudo sin sentido físico si x=0x = 0 está fuera del rango observado).
  • Residual: ei=yi−y^ie_i = y_i - \hat{y}_i. Error estándar del modelo: σ^=CME\hat\sigma = \sqrt{CM_E}.

3. Bondad del ajuste y significancia

ANOVA de la regresión (misma lógica de partición del documento 03):

SCT=SCR+SCE,R2=SCRSCT=1−SCESCT.SC_T = SC_R + SC_E, \qquad R^2 = \frac{SC_R}{SC_T} = 1-\frac{SC_E}{SC_T}.
  • R2R^2: proporción de la variabilidad de yy explicada por el modelo. En simple, R2=r2R^2 = r^2.
  • Prueba tt para cada coeficiente: H0:βj=0H_0: \beta_j = 0, t0=β^j/ee(β^j)t_0 = \hat\beta_j / ee(\hat\beta_j).
  • Prueba FF global: H0:β1=⋯=βk=0H_0: \beta_1 = \dots = \beta_k = 0.

4. Regresión lineal múltiple

y=β0+β1x1+β2x2+⋯+βkxk+ε.y = \beta_0 + \beta_1 x_1 + \beta_2 x_2 + \dots + \beta_k x_k + \varepsilon .
  • βj\beta_j es el efecto de xjx_j manteniendo constantes las demás variables.
  • R2R^2 siempre aumenta al agregar variables; para comparar modelos usa el R2R^2 ajustado:
Raj2=1−SCE/(n−p)SCT/(n−1),p=k+1.R^2_{\text{aj}} = 1-\frac{SC_E/(n-p)}{SC_T/(n-1)}, \qquad p = k+1 .
  • Cuidado con la multicolinealidad (predictores muy correlacionados entre sí): infla los errores estándar y vuelve inestables los coeficientes. Diagnóstico: car::vif() (> 5–10 es preocupante). En un experimento diseñado los factores son ortogonales y este problema desaparece: otro motivo para ASC22.

5. Predicción: IC para la media vs. intervalo de predicción

Para un valor nuevo x0x_0:

IntervaloRespondeAmplitud
IC para la respuesta media E(y∣x0)E(y \mid x_0)“¿Cuál es el promedio de todas las piezas producidas a x0x_0?”Menor
Intervalo de predicción (IP) para una nueva y0y_0“¿Dónde caerá la próxima pieza producida a x0x_0?”Mayor (incluye σ2\sigma^2)

En la simple:

y^0±tα/2, n−2 σ^1n+(x0−xˉ)2Sxx(IC)y^0±tα/2, n−2 σ^1+1n+(x0−xˉ)2Sxx(IP)\hat{y}_0 \pm t_{\alpha/2,\,n-2}\,\hat\sigma\sqrt{\tfrac{1}{n}+\tfrac{(x_0-\bar{x})^2}{S_{xx}}} \quad\text{(IC)} \qquad \hat{y}_0 \pm t_{\alpha/2,\,n-2}\,\hat\sigma\sqrt{1+\tfrac{1}{n}+\tfrac{(x_0-\bar{x})^2}{S_{xx}}} \quad\text{(IP)}

En R: predict(modelo, newdata, interval = "confidence") o interval = "prediction".

⚠️ No extrapoles: el modelo solo vale en el rango de xx observado.

6. En R

modelo <- lm(resistencia_mpa ~ temperatura_c + tiempo_min + humedad_pct, data = df)
summary(modelo)      # coeficientes, t, R², R² ajustado, F global
confint(modelo)      # IC de los coeficientes
anova(modelo)        # tabla ANOVA secuencial
predict(modelo, newdata = data.frame(temperatura_c = 80, tiempo_min = 25, humedad_pct = 50),
        interval = "prediction")

Para repasar

  • r=0.05r = 0.05 entre temperatura y rendimiento. ¿Significa que la temperatura no afecta el rendimiento?
  • Interpreta β^1=0.056\hat\beta_1 = 0.056 MPa/°C en un modelo múltiple.
  • ¿Por qué el IP nunca es más angosto que el IC para la media?

Referencias

  • Montgomery, D. C. y Runger, G. C. Probabilidad y estadística aplicadas a la ingeniería, cap. 11 y 12.
  • Navidi, W. Estadística para ingenieros y científicos, cap. 7 y 8.
Practica

Práctica en R y ejercicios

Práctica de esta lecciónPara hacer Knit necesitas también la carpeta datos/: usa el paquete .zip de la sesión.
Comprueba

¿Lo tienes claro?

Autoevaluación · 3 preguntas 1 / 3

La autoevaluación completa de la sesión reúne las preguntas de todas sus lecciones.

Fin de la lección

Cuando la tengas clara, márcala y sigue con Supuestos y diagnóstico: análisis de residuales.