please code in R

Create a summary dataset that contains the proportion of delayed departures for each airline (carrier). Please provide your code.

Create 'not_cancelled dataset by running the following code: not_cancelled % filter(Sis.na(dep_delay), !is.na(arr_delay))