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)) ```