Chapter 8 Evaluate final model

Finally, let’s use our testing data and see how we can expect our model 1 to perform on new data.

lm_fit %>% 
 predict(new_test) %>%
 mutate(truth = new_test$median_house_value) %>%
 rmse(truth, .pred)

## # A tibble: 1 x 3
##   .metric .estimator .estimate
##   <chr>   <chr>          <dbl>
## 1 rmse    standard      84297.