regdata <- read.csv('e:/r files/reg.csv')
reg.out=lm(left ~ right, data=regdata)
plot(regdata)
abline(reg.out)
summary(reg.out)
predict(reg.out,level=.95,interval="prediction")
predict(reg.out,level=.95,interval="confidence")