Regression and Prediction in R Using the lm() Command