::: {.cell hash='03_Data_preprocessing_cache/revealjs/piping_example_2b2e45a45c064ef41e6b72abee5d92c7'}

```{.r .cell-code}
flights %>%
  select(month, distance, air_time) %>%
  mutate(speed = distance / air_time * 60) %>%
  group_by(month) %>%
  summarise(avg_speed = mean(speed, na.rm=TRUE))
```
:::