From 6408c89dfdb90b4cac1f1cc94574177bfa16d918 Mon Sep 17 00:00:00 2001 From: schnodo <102848254+schnodo@users.noreply.github.com> Date: Wed, 6 Apr 2022 23:24:09 +0200 Subject: [PATCH] min() instead of max() for smallest delay --- chapter-11-exercises/exercise-6/exercise.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/chapter-11-exercises/exercise-6/exercise.R b/chapter-11-exercises/exercise-6/exercise.R index 3677f3f2..03df3010 100644 --- a/chapter-11-exercises/exercise-6/exercise.R +++ b/chapter-11-exercises/exercise-6/exercise.R @@ -25,5 +25,5 @@ smallest_airline_delay <- flights %>% group_by(carrier) %>% summarise(avg_delay = mean(arr_delay, na.rm = TRUE)) %>% left_join(airlines, by = "carrier") %>% - filter(avg_delay == max(avg_delay, na.rm = TRUE)) + filter(avg_delay == min(avg_delay, na.rm = TRUE)) smallest_airline_delay