From 41ff280a08ec57aef53e4103a651c4dc8fa38099 Mon Sep 17 00:00:00 2001 From: Julian During Date: Mon, 3 Oct 2016 14:42:27 +0200 Subject: [PATCH] Look at the 10 best models, instead of 9 (#450) --- model-basics.Rmd | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/model-basics.Rmd b/model-basics.Rmd index 4ad0e61..8aad2d1 100644 --- a/model-basics.Rmd +++ b/model-basics.Rmd @@ -145,7 +145,7 @@ We can also think about these models as observations, and visualising with a sca ```{r} ggplot(models, aes(a1, a2)) + - geom_point(data = filter(models, rank(dist) < 10), size = 4, colour = "red") + + geom_point(data = filter(models, rank(dist) <= 10), size = 4, colour = "red") + geom_point(aes(colour = -dist)) ``` @@ -160,7 +160,7 @@ grid <- expand.grid( grid %>% ggplot(aes(a1, a2)) + - geom_point(data = filter(grid, rank(dist) < 10), size = 4, colour = "red") + + geom_point(data = filter(grid, rank(dist) <= 10), size = 4, colour = "red") + geom_point(aes(colour = -dist)) ```