install.packages("alr3")
library(alr3)
data(wm1)
attributes(wm1)
fit1 = lm(CSpd~RSpd, data=wm1)
x1 = data.frame(RSpd = 7.4285)
predict(fit1, x1, interval="confidence")
par(mfrow=c(2,2))
plot(fit1)