当模型假设被违背时如何推进

R 中的线性回归推断

Jo Hardin

Professor, Pomona College

线性模型

$$\huge{Y = \beta_0 + \beta_1 \cdot X + \epsilon}$$

$$\large{\text{其中 } \epsilon \sim N(0, \sigma_\epsilon)}$$

$Y = \beta_0 + \beta_1 \cdot X + \beta_2 \cdot X^2 + \epsilon$，其中 $\epsilon \sim N(0, \sigma_\epsilon)$

$Y = \beta_0 + \beta_1 \cdot \ln(X) + \epsilon$，其中 $\epsilon \sim N(0, \sigma_\epsilon)$

$Y = \beta_0 + \beta_1 \cdot \sqrt{X} + \epsilon$，其中 $\epsilon \sim N(0, \sigma_\epsilon)$

ggplot(data=data_nonlinear, 
  aes(x=explanatory, y=response)) + 
     geom_point()

ggplot(data=data_nonlinear, 
  aes(x=explanatory^2, y=response))+ 
     geom_point()

$Y^2 = \beta_0 + \beta_1 \cdot X + \epsilon$，其中 $\epsilon \sim N(0, \sigma_\epsilon)$

$\ln(Y) = \beta_0 + \beta_1 \cdot X + \epsilon$，其中 $\epsilon \sim N(0, \sigma_\epsilon)$

$\sqrt(Y) = \beta_0 + \beta_1 \cdot X + \epsilon$，其中 $\epsilon \sim N(0, \sigma_\epsilon)$

ggplot(data = data_nonnorm, 
  aes(x = explanatory, y = response)) + 
     geom_point()

ggplot(data = data_nonnorm, 
  aes(x = explanatory, y = log(response))) + 
     geom_point()

R 中的线性回归推断