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

Fix broken example post move-around

Browse Source
This commit is contained in:
hadley
2016-01-22 10:03:10 -06:00
parent 986ea61453
commit 5e8d952313
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lists.Rmd
View File

@@ -192,6 +192,7 @@ results
If you do this a lot, you should probably make a function for it: If you do this a lot, you should probably make a function for it:
```{r} ```{r}
df <- data.frame(x = 1:10, y = rnorm(100))
col_medians <- function(df) { col_medians <- function(df) {
out <- vector("numeric", ncol(df)) out <- vector("numeric", ncol(df))
for (i in 1:ncol(df)) { for (i in 1:ncol(df)) {