Below the previous code chunk, answer the following questions

$$ Is the overall fit of the model high or low? What tells you this?

$$ Is the model fit due to the number of variables? How can you tell?

$$ What are the most significant variables in your model? What information tells

you this?

$$ Do you see anything surprising in the results? $($Hint: Do the coefficient signs

make sense?$)$

$14.$ Create a new code chunk to check the Variance Inflation factors for the variables

HINT:

library$($car$)$

car::vif$($regOutput$)$