我想计算经纬度对之间的距离,并将它们添加到nem列中。我已经尝试运行脚本(见下文),但它花费的时间太长(超过5个小时)。有什么建议吗?怎样才能加快这个过程的速度?我使用geosphere包来计算经纬度对之间的距离。for (i in seq_len(nrow(dm_kekk)))dm_kekk$dist[i]<-distm (c(dm_kekk$lon[i], dm_kekk$lat[i]),c(dm_kekk$lon_ok[i], dm_kekk$lat_ok[i]),
如果我的“可接受距离”大于我在多个点之间的距离,事情就会变得"ok“。然而..。比方说,如果我的倍数相距2.5,我说对于任何兴趣点来说,1的距离是可以接受的。d = distance between (each, multiple) points.b = ( d/2 )C会比我最初的A point B
O-------------