electrn <- read.fwf("I:\\data\\electrn.txt",width=c(8,8,8,8), col.names=c("week","cars", "miles", "pass")) attach(electrn) passk <- pass/1000 electrn.reg <- lm(passk~cars) summary.lm(electrn.reg) anova.lm(electrn.reg) predict.lm(electrn.reg,interval="confidence") predict.lm(electrn.reg,interval="prediction")