flightpathr

commit 95d714ed7f4cfe94a0b8a86d12560d40f35372bb
parent 3d7980afa36fde1ab212ad80d52c4942e002cc2d
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Wed,  2 Nov 2016 12:44:54 -0400

Mistake in change censoring

Diffstat:
M
R/identifyManeuvers.R
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/identifyManeuvers.R b/R/identifyManeuvers.R
@@ -96,8 +96,8 @@ identifyChanges <- function(x, dx, xThresh, dxThresh) {
   # Censor the changes that aren't above the threshold
   censorChanges <- which(abs(changeMagnitude) < xThresh)
 
-  # Loop through the changes and censor them
-  for (i in seq_along(censorChanges)) {
+  # Loop through the below-threshold changes and censor them
+  for (i in censorChanges) {
     aboveThresh[regionStart[i]:regionEnd[i]] <- FALSE
   }