# NOT RUN {
<!--- In an R Markdown document: --->
```{r mtcars-1}
library(dplyr)
mtcars %>%
select(mpg, cyl, hp) %>%
group_by(cyl) %>%
summarise(mean(hp))
```
[See this pipeline in Tidy Data Tutor](`r tdt_chunk("mtcars-1")`)
# }
Run the code above in your browser using DataLab