# NOT RUN {
# simple haversine calculation
lon1 <- runif(-160, -60, n = 10e6)
lat1 <- runif(40, 60, n = 10e6)
lon2 <- runif(-160, -60, n = 10e6)
lat2 <- runif(40, 60, n = 10e6)
df <- data.frame(lat1, lon1, lat2, lon2)
df$havers <- haversine(df$lat1, df$lon1, df$lat2, df$lon2)
# }
Run the code above in your browser using DataLab