[chronojump] Disabled speed shown on curves

[Xavier de Blas <xaviblas src gnome org>]

commit c8955dfee85fbc6fa961dd0dfe1ef30f8dd4414d
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Jun 17 18:29:28 2013 +0200

    Disabled speed shown on curves

 encoder/graph.R |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 32b5c06..9cf873a 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -168,9 +168,9 @@ findCurves <- function(rawdata, eccon, min_height, draw, title) {
                abline(v=b$maxindex/1000,lty=3); abline(v=b$minindex/1000,lty=3)        #ms -> s
        
                #plot speed (currently disabled)        
-               speed <- smooth.spline( 1:length(rawdata), rawdata, spar=smoothingAll)
-               abline(h=0,lty=2,col="yellow")
-               lines((1:length(rawdata))/1000, speed$y*10, col="green")
+               #speed <- smooth.spline( 1:length(rawdata), rawdata, spar=smoothingAll)
+               #abline(h=0,lty=2,col="yellow")
+               #lines((1:length(rawdata))/1000, speed$y*10, col="green")
                #print("SPEEEDYYYY")
                #print(max(speed$y))    
                #print(min(speed$y))