actgpa[1:5,]
lactgpa = lm(GPA~ACT,data=actgpa)
summary(lactgpa)