расчет расстояния с использованием широты и долготы - PullRequest
0 голосов
/ 29 апреля 2020

Я рассчитываю расстояние, пройденное велосипедистами. У меня есть информация о широте и долготе для их начальной и конечной точки. Я искал более ранние решения, но использование distHaversine с пакетом Geosphere мне не помогло. Добавление этого кода здесь также.

DF <- data.frame(Start.Lat = c(40.74178, 40.72132, 40.79948, 40.75020, 40.71413, 40.74312, 40.72904, 40.74780, 40.69779, 40.72955), Start.Lon = c(-74.00150, -74.01006, -73.95561, -73.99093, -73.95234, -73.98215, -73.99405, -73.97344, -73.97374, -73.98057), End.Lat =c(40.74174, 40.70380, 40.79377, 40.76133, 40.71335, 40.76096, 40.71894, 40.73705, 40.75110, 40.73493), End.Lon = c(-73.99416, -74.00839, -73.97189, -73.97982, -73.94910, -73.96724, -73.99266 , -73.99009, -73.94074, -73.99201))

Код, где я пытался использовать геосферу:

install.packages("geosphere")
library(geosphere)
distm(cbind(DF$Start.Lon, DF$Start.Lat), cbind(DF$End.Lon, DF$End.Lat), fun = distHaversine)

Сообщение об ошибке: (эта ошибка появляется только при использовании моего полного набора данных, состоящего из 30 000 точек данных)

Ошибка: невозможно выделить вектор размером 6,7 Гб

...