lactgpa = lm(GPA~ACT,data=actgpa)
summary(lactgpa)
actscores=data.frame(ACT=c(19:33))
predict(lactgpa,newdata=actscores,interval="confidence")
predict(lactgpa,newdata=actscores,interval="prediction")