[chronojump] Fixed bug on commit "Cleaned R code and delete lots of slow prints"

[Xavier de Blas <xaviblas src gnome org>]

commit 182c5f52e5ab91236fbb027e0f1e28ff97374d80
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Mar 3 21:27:22 2016 +0100

    Fixed bug on commit "Cleaned R code and delete lots of slow prints"

 encoder/graphSmoothingEC.R |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graphSmoothingEC.R b/encoder/graphSmoothingEC.R
index e0b48af..c5946b5 100644
--- a/encoder/graphSmoothingEC.R
+++ b/encoder/graphSmoothingEC.R
@@ -124,8 +124,9 @@ findSmoothingsEC <- function(singleFile, displacement, curves, eccon, smoothingO
                                        conStart = 0
                                        conEnd = mean(which(position == max(position)))
                                }
+                       
+                               concentric=displacement[(curves[i,1]+conStart):(curves[i,1]+conEnd)]    
 
-                               
                                #1 get max power concentric at concentric phase with current smoothing
 
                                speed <- getSpeed(concentric, smoothingOneC)