
358 Data Analysis and Statistics for Geography, Environmental Science, and Engineering
Based on the lowest AIC for wind (686), we decide to add it as independent variable. You can repeat
this by running a new lm with just temperature and wind as object ozone.tw
> ozone.tw <- lm(Ozone ~ Temp + Wind)
> ozone.tw
Call:
lm(formula = Ozone ~ Temp + Wind)
Coefficients:
(Intercept) Temp Wind
−67.322 1.828 −3.295
> summary(ozone.tw)
Call:
lm(formula = Ozone ~ Temp + Wind)
Residuals:
Min 1Q Median 3Q Max
−42.156 −13.216 −3.123 10.598 98.492
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) −67.3220 23.6210 −2.850 0.00524 **
Temp 1.8276 0.2506 7.294 ...