[chronojump] minor fix. Cleaning the MIF graph

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

commit cbe2867f9dc6a1475d7754575a1221cada4f642b
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon May 15 17:15:34 2017 +0200

    minor fix. Cleaning the MIF graph

 r-scripts/maximumIsometricForce.R |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index ac2eeac..3c6277f 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -236,7 +236,7 @@ drawDynamicsFromLoadCell <- function(
              line = 2, col = "blue")
         
         #Plottting smoothed data
-        lines(dynamics$time, dynamics$f.smoothed, col="grey")
+        #lines(dynamics$time, dynamics$f.smoothed, col="grey")
         
         if(vlineT0){
                 abline(v = dynamics$startTime, lty = 2)
@@ -400,13 +400,13 @@ drawDynamicsFromLoadCell <- function(
         }
         
         #Plotting instantaneous RFD
-        par(new = T)
-        plot(dynamics$time[(dynamics$startSample):dynamics$endSample], 
dynamics$rfd[(dynamics$startSample):dynamics$endSample],
-             type = "l", col = "red", axes = F,
-             xlim = c(xmin, xmax), xlab = "", ylab = "", yaxs= "i", xaxs = "i")
-        lines(dynamics$time[1:(dynamics$startSample)], dynamics$rfd[1:dynamics$startSample], col = "orange")
-        lines(dynamics$time[dynamics$endSample:dynamics$totalSample], 
dynamics$rfd[dynamics$endSample:dynamics$totalSample], col = "orange")
-        axis(4, col = "red", line = 1)
+        # par(new = T)
+        # plot(dynamics$time[(dynamics$startSample):dynamics$endSample], 
dynamics$rfd[(dynamics$startSample):dynamics$endSample],
+        #      type = "l", col = "red", axes = F,
+        #      xlim = c(xmin, xmax), xlab = "", ylab = "", yaxs= "i", xaxs = "i")
+        # lines(dynamics$time[1:(dynamics$startSample)], dynamics$rfd[1:dynamics$startSample], col = 
"orange")
+        # lines(dynamics$time[dynamics$endSample:dynamics$totalSample], 
dynamics$rfd[dynamics$endSample:dynamics$totalSample], col = "orange")
+        # axis(4, col = "red", line = 1)
 }
 
 getDynamicsFromLoadCellFolder <- function(folderName, resultFileName, export2Pdf)