```{r setup, include=FALSE}

knitr::opts_chunk$set(echo = TRUE)

library(nycflights13)

library(tidyverse)

```

## Using the flights data set from nycflights13, answer each of the following

**1)Compare air_time with arr_time-dep_time. What do you expect to see? What do you see? What do you need to do to fix it**.

**2)Find the 10 most delayed flights using a ranking function "min_rank()". How do you want to handle ties? Carefully read the documentation for min_rank()