8.2 Predict

price_pred <- stats::predict(lm_fit, new_data = ames)
price_pred
## # A tibble: 2,930 x 1
##      .pred
##      <dbl>
##  1 198255.
##  2 113367.
##  3 161731.
##  4 248964.
##  5 195239.
##  6 192447.
##  7 162736.
##  8 156258.
##  9 193787.
## 10 214786.
## # … with 2,920 more rows

price_pred <- price_pred %>%
  dplyr::mutate(truth = ames$Sale_Price)

price_pred
## # A tibble: 2,930 x 2
##      .pred  truth
##      <dbl>  <int>
##  1 198255. 215000
##  2 113367. 105000
##  3 161731. 172000
##  4 248964. 244000
##  5 195239. 189900
##  6 192447. 195500
##  7 162736. 213500
##  8 156258. 191500
##  9 193787. 236500
## 10 214786. 189000
## # … with 2,920 more rows