Multiple Linear Regression Assigment 2a in R