 ames_split) %&gt;% 
  collect_metrics()
## # A tibble: 2 x 3
##   .metric .estimator .estimate
##   &lt;chr&gt;   &lt;chr&gt;          &lt;dbl&gt;
## 1 rmse    standard   56055.   
## 2 rsq     standard       0.529
```
]

.pull-right[

```r
set.seed(100) # Important!
fit_split(Sale_Price ~ Gr_Liv_Area, 
          model = lm_spec, 
          split = ames_split) %&gt;% 
  collect_metrics()
## # A tibble: 2 x 3
##   .metric .estimator .estimate
##   &lt;chr&gt;   &lt;chr&gt;          &lt;dbl&gt;
## 1 rmse    