haversine(53.24007, 6.520386, 53.24054, 6.520386)
lat_from <- c(53.24, 52.37)
lon_from <- c(6.52, 4.90)
lat_to <- c(48.85, 51.92)
lon_to <- c(2.35, 4.48)
haversine(lat_from, lon_from, lat_to, lon_to)
Run the code above in your browser using DataLab