flightconflicts

commit 6f9ced6b2f8a4408b9e302cb1cf53756d856ee83
parent a6fcc7c39c40e14dd97508d398e6d9052fc90a59
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Fri, 20 May 2016 15:49:57 -0400

Helpers don't need docs.

Diffstat:
M
R/calculateSLoWC.R
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/calculateSLoWC.R b/R/calculateSLoWC.R
@@ -85,8 +85,8 @@ calculateSLoWC <- function(trajectory1, trajectory2) {
   return(vSLoWC)
 }
 
-#' Convert a bearing (in degrees) and velocity (in knots) to north and east
-#' velocity (in ft / s).
+# Convert a bearing (in degrees) and velocity (in knots) to north and east 
+# velocity (in ft / s).
 bearingToXY <- function(bearing, velocity) {
   # Velocity should be in knots. Convert to ft / s
   fps <- velocity * 1.68781
@@ -97,7 +97,7 @@ bearingToXY <- function(bearing, velocity) {
                fps * cos(theta)))
 }
 
-#' The Fernandez-Gausti squircular operator.
+# The Fernandez-Gausti squircular operator.
 FGnorm <- function(x, y) {
   return(sqrt(x^2 + (1 - x^2) * y^2))
 }