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

```{.r .cell-code}
grouped_flights <- group_by(
  flights, year, month
)

summarise(
  grouped_flights, 
  max_delay = max(dep_delay, 
                  na.rm = TRUE),
  min_delay = min(dep_delay, 
                  na.rm = TRUE),
)
```
:::