a(Sale_Price ~ Gr_Liv_Area, 
                   model = rt_spec, 
                   data = ames)

price_pred &lt;- predict(rt_fit, new_data = ames) %&gt;% 
  mutate(price_truth = ames$Sale_Price)

rmse(price_pred, truth = price_truth, estimate = .pred)
```

---
class: middle, center

&lt;img src="figs/01-Predicting/unnamed-chunk-26-1.png" width="504" /&gt;

---
class: middle, center

&lt;img src="figs/01-Predicting/unnamed-chunk-27-1.png" width="504" /&gt;


---
class: middle, inverse, center

# Do you tru