# NOT RUN {
str(Lifespan)
attach(Lifespan)
plot(heat,life)
model <- lm(life~heat)
model
resid(model)
sum((resid(model))^2)
anova(model)
# plot(model) # Used for diagnostic purposes
detach(Lifespan)
# }
Run the code above in your browser using DataLab