Уже есть заданный фрейм данных, называемый такси, теперь я должен сделать следующее, но я застрял на последнем шаге ...
# Создать my_distance и diff
taxis_my_dist <- taxis %>%
mutate(my_distance = hav_dist(pickup_longitude , pickup_latitude ,dropoff_longitude, dropoff_latitude ),
diff = trip_distance-my_distance)
# Найти минимальное и максимальное значения различий
max(taxis[,diff])
min(diff)