course
/
r4ds
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Look at the 10 best models, instead of 9 (#450)

This commit is contained in:
Julian During 2016-10-03 14:42:27 +02:00 committed by Hadley Wickham
parent c93a5c51ae
commit 41ff280a08
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
model-basics.Rmd
View File

@ -145,7 +145,7 @@ We can also think about these models as observations, and visualising with a sca
```{r} ```{r}
ggplot(models, aes(a1, a2)) + 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)) geom_point(aes(colour = -dist))
``` ```
@ -160,7 +160,7 @@ grid <- expand.grid(
grid %>% grid %>%
ggplot(aes(a1, a2)) + 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)) geom_point(aes(colour = -dist))
``` ```