Triangulación: Estime una ubicación usando coordenadas / rodamientos de latitud / longitud

Question

Me gustaría obtener una ubicación aproximada mediante coordenadas en lat/long y los rodamientos en cada una de esas coordenadas mediante R.

En este caso yo sería la aproximación de la ubicación de un pavo nido que me han marcado, a través de la radio telemetría por tomar 5-8 rodamientos alrededor de los nidos de gallina por lo que el nido se puede encontrar después de la gallina ha completado el período de incubación y a la izquierda.

Aquí está un ejemplo de lo que podría parecer cuando se trazan en google earth (punto más septentrional no visible):

Lista completa de las coordenadas y de los rodamientos para el ejemplo anterior:

   Coord.(UTMs)......Bearing.(Aizmuth).

1....473789, 4485636.......26

2....473755, 4485659.......50

3....473728, 4485717.......80

4....473730, 4485788.......134

5....473848, 4485866.......196

6....473926, 4485796.......236

7....473925, 4485702.......291

8....473850, 4485660.......326

Answer 1

Aquí está uno (probablemente muy ingenua) de hacer uso de la sigloc paquete.

Una vez que el sigloc paquete es instalado de la siguiente debe funcionar

library("sigloc")

df <- data.frame(
    Date = '1/11/2016',
    Observers = 'MickyT',
    GID = 1,
    Time = c(1,2,3,4,5,6,7,8),
    Easting = c(473789,473755,473728,473730,473848,473926,473925,473850),
    Northing = c(4485636,4485659,4485717,4485788,4485866,4485796,4485702,4485660),
    Azimuth = c(26,50,80,124,196,236,291,326)
    )

receivers <- as.receiver(df)
turkey_nest <- locate(receivers)

turkeynest <-findintersects(receivers)
plot(receivers, bearings=TRUE, xlab="Easting",ylab="Northing", asp=1)
plot(turkey_nest, add=TRUE, errors=TRUE, badcolor=TRUE, xlab="Easting",ylab="Northing", asp=1)

Cuando este se ejecute el siguiente gráco se genera y turkey_nest tiene los siguientes datos en ella

         X       Y BadPoint Var_X Var_Y Cov_XY AngleDiff Date Time
1 473839.7 4485733        1     0     0      0         0    1    4

También hay un mensaje de advertencia producidos por un mal punto de ser detectado.