**6. Jaka część linii lotniczych ma regularne opóźnienia, tj. jej lot ma średnio co najmniej 10 min. opóźnienia?**
```{r}
x <- sqlQuery(con, "SELECT count(Distinct unique_carrier)
from Flight_delays
where unique_carrier IN(
                    select unique_carrier
                    from Flight_delays
Group by unique_carrier
having avg( arr_delay_new) > 10)
")

y <- sqlQuery(con, "SELECT COUNT(DISTINCT unique_carrier)
FROM Flight_delays")
z <- (x/y)
z

```

**7. Jak opóźnienia wylotów wpływają na opóźnienia przylotów?**
```{r}
x <- sqlQuery(con,"SELECT dep_delay_new FROM Flight_delays")
y <-  sqlQuery(con,"SELECT arr_delay_new FROM Flight_delays")
wspolczynnikPearsona <- cor( x,y , use= "complete.obs",method= "pearson")
print(wspolczynnikPearsona)