[chronojump] fixed endSample detection

[Xavier Padullés <xpadulles src gnome org>]

commit 52a141e184d0eaaa939f613306d725a8f8e47678
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon May 22 10:59:59 2017 +0200

    fixed endSample detection

 r-scripts/maximumIsometricForce.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index f2502b1..53a5d7e 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -562,7 +562,7 @@ getTrimmingSamples <- function(test, rfd, movingAverageForce, averageLength = 0.
         
         
         endSample = startSample + 1
-        maxSample = movingAverageForce[endSample]
+        maxSample = endSample
         maxAverageForce = movingAverageForce[maxSample]
         while(movingAverageForce[endSample] > maxAverageForce*(100 - percentChange) / 100 &
                                               endSample < length(test$time))