```{r prepare-flights} nycflights <- nycflights13::flights
```{r filter, exercise=TRUE, exercise.setup = "prepare-flights"}
# Change the filter to select February rather than January
filter(nycflights, month == 1)
```{r arrange, exercise=TRUE, exercise.setup = "prepare-flights"}
arrange(nycflights, desc(arr_delay)) ```
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.