diff --git a/model-assess.Rmd b/model-assess.Rmd
index 3ef230e..dd24e62 100644
--- a/model-assess.Rmd
+++ b/model-assess.Rmd
@@ -42,7 +42,7 @@ partition(mtcars, 0.1)
 We'll generate 20 random test-training splits, and then create lists of test-training datasets:
 
 ```{r}
-partitions <- rerun(200, partition(mtcars, 0.25))
+partitions <- rerun(20, partition(mtcars, 0.25))
 
 tst <- partitions %>% map(~mtcars[.x, , drop = FALSE])
 trn <- partitions %>% map(~mtcars[!.x, , drop = FALSE])