Я пытаюсь создать код, чтобы найти окончательные пеленги для последовательных позиций и расстояний от начального пеленга. Я использую destPoint, но изо всех сил пытаюсь интегрировать его в какую-то рекурсивную функцию. (если это то, что мне нужно)
Я пробовал рекурсивные функции, но ничего не похоже.
Вот, по сути, то, что я пытаюсь добиться вручную, но у меня гораздо больше данных, и я хотел бы выяснить, как это сделать!
init<-c(149.6566667, -36.01983333)
bearing<-c(270, 315, 10, 20)
distance<-c(5,5,2,2)
a<-destPoint(init,bearing[1],distance[1])
a
b<-destPoint(a, bearing[2],distance[2])
b
c<-destPoint(b, bearing[3], distance[3])
c
d<-destPoint(c, bearing[4], distance[4])
d
accumulate2
из purrr
можно использовать
library(geosphere)
library(purrr)
accumulate2(bearing, distance, destPoint, .init = init)[-1]
#[[1]]
# lon lat
#[1,] 149.6566 -36.01983
#[[2]]
# lon lat
#[1,] 149.6566 -36.0198
#[[3]]
# lon lat
#[1,] 149.6566 -36.01978
#[[4]]
# lon lat
#[1,] 149.6566 -36.01977