MATH 810 Simple Linear Regression in R Part 2