test <- structure(list(trip_count = 1:10, dropoff_longitude = c(-73.959862, -73.882202, -73.934113, -73.992203, -74.00563, -73.975189, -73.97448, -73.974838, -7