```{r setup, include=FALSE}

knitr::opts_chunk$set(echo = TRUE)

library(nycflights13)

library(tidyverse)

```

data(flights)

Question 1a) Look at the number of cancelled flights per day. Is there a pattern? Is the proportion of cancelled flights related to the average delay?**.

Question 1b)Come up with another approach that will give you the same output as**:

```{r}

not_cancelled <- flights %>% filter(!is.na(dep_delay),!is.na(arr_delay))

not_cancelled %>% count(dest)

not_cancelled %>% count(tailnum, wt =distance)

```