[chronojump] Encoder graph.R curvesPlot commented unused SmoothingsEC calculation

[Xavier de Blas <xaviblas src gnome org>]

commit 9424844b967828082b9d92b66f5e99681c0eac73
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Mar 15 10:45:37 2022 +0100

    Encoder graph.R curvesPlot commented unused SmoothingsEC calculation

 encoder/graph.R | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 6ff09d28c..9c6847bf7 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -3108,22 +3108,21 @@ doProcess <- function(options)
                 #print(curves)
                 
                 #find SmoothingsEC
-                if(CROSSVALIDATESMOOTH) {
-                        for(i in 1:n)
-                                SmoothingsEC[i] = 0
-                }
-                else {
-                        singleCurveNum <- -1
-                        if(op$Analysis == "single" && op$Jump > 0)
-                                singleCurveNum <- op$Jump
-                        SmoothingsEC <- findSmoothingsEC(
-                                singleFile, displacement, curves, singleCurveNum, op$Eccon, op$SmoothingOneC,
-                                op$EncoderConfigurationName, op$diameter, op$inertiaMomentum, op$gearedDown 
-                        ) #second row is needed for singleFile (signal)
-                }
-                
-                print(c("SmoothingsEC:",SmoothingsEC))
-                
+               #if(CROSSVALIDATESMOOTH) {
+                       #for(i in 1:n)
+                               #SmoothingsEC[i] = 0
+               #}
+               #else {
+                       #singleCurveNum <- -1
+                       #if(op$Analysis == "single" && op$Jump > 0)
+                               #singleCurveNum <- op$Jump
+                       #SmoothingsEC <- findSmoothingsEC(
+                               #singleFile, displacement, curves, singleCurveNum, op$Eccon, op$SmoothingOneC,
+                               #op$EncoderConfigurationName, op$diameter, op$inertiaMomentum, op$gearedDown
+                       #) #second row is needed for singleFile (signal)
+               #}
+               #print(c("SmoothingsEC:",SmoothingsEC))
+
                 if(curvesPlot) {
                         #/10 mm -> cm
                         for(i in 1:length(curves[,1])) {