#The cricket example: 
plot(cricketdata)
cricketdata

fit <- lm(Temp ~ MovPerSec, data=cricketdata)
summary(fit)

names(fit)

plot(fit$residuals)
plot(fit$fitted.values, fit$residuals)

plot(cricketdata$Temp, fit$residuals)
plot(cricketdata$MovPerSec, fit$residuals)

############################################

#A multiple regression example: 
impuritydata

plot(impuritydata[,1:2])
plot(impuritydata[,c(1,3)])

fit2 <- lm(y ~ X0 + X1, data=impuritydata)
summary(fit2)

plot(fit2$residuals)
plot(fit2$fitted.values, fit2$residuals)

plot(impuritydata$y, fit2$residuals)
plot(impuritydata$X0, fit2$residuals)
plot(impuritydata$X1, fit2$residuals)