powered by
p2.12
data(p2.12)
data(p2.12) attach(p2.12) usage.lm <- lm(usage ~ temp) summary(usage.lm) predict(usage.lm, newdata=data.frame(temp=58), interval="prediction") detach(p2.12)
Run the code above in your browser using DataLab