[chronojump] Minor change

[Xavier de Blas <xaviblas src gnome org>]

commit 688171a5fe1f7177ff92b796bcbe4722c2f3f9c6
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Mar 17 12:24:58 2016 +0100

    Minor change

 encoder/neuromuscularProfile.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/encoder/neuromuscularProfile.R b/encoder/neuromuscularProfile.R
index 5679618..9a85acc 100644
--- a/encoder/neuromuscularProfile.R
+++ b/encoder/neuromuscularProfile.R
@@ -49,7 +49,7 @@ neuromuscularProfileJump <- function(l.context, e1, c, mass, smoothingC)
        #from max(abs(speed$y)) at e1, to end of e1
        e1.speed <- getSpeedSafe(e1, smoothingC)
        e1.maxspeed.pos <- mean(which(abs(e1.speed$y) == max(abs(e1.speed$y))))
-       e1f <- e1[e1.maxspeed.pos:length(e1)]
+       e1f <- e1[e1.maxspeed.pos:length(e1)] #TODO: check if has to be determined by minimum acceleration 
instead of maxspeed
 
        print(c("e max speed.t",e1.maxspeed.pos))
        print(c("length e1",length(e1)))