flightpathr

commit cb4e0396bba2f5e52f218d6ed577a14fdec323d2
parent 152321e10b81ebe610a9ba5e3c8aa907c3fc5938
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Tue, 19 Apr 2016 10:14:49 -0400

More precise Earth radius (in feet).

Diffstat:
M
R/distanceFromPath.R
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/distanceFromPath.R b/R/distanceFromPath.R
@@ -32,7 +32,7 @@ distanceFromPath <- function(trajectory, path) {
     hDistanceToLeg[, legIdx] <- geosphere::dist2gc(pathCoords[legIdx, c(1,2)],
                                               pathCoords[legIdx+1, c(1,2)],
                                               trajectoryCoords[, c(1,2)],
-                                              r = 2.0904e+7)
+                                              r = 20925646)
 
     # If the waypoints are at the same altitude, just calculate the deviation
     # from this altitude. Easy.