[chronojump] MIF. Fixed max in raw data

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

commit faf2b5bfa4526d4f9c0c0e6293e74e1d84e10c38
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Oct 16 19:31:20 2017 +0200

    MIF. Fixed max in raw data

 r-scripts/maximumIsometricForce.R |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 2765010..2a187f0 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -122,7 +122,7 @@ getDynamicsFromLoadCellFile <- function(inputFile, averageLength = 0.1, percentC
                 return(NA)
         }
         initf = mean(originalTest$force[(startSample - 20):(startSample - 10)]) #ATENTION. This value is 
different from f0.raw
-        fmax.raw = max(originalTest$force)
+        fmax.raw = max(originalTest$force[startSample:endSample])
         
         #Trimming the data before and after contraction
         test = originalTest[startSample:endSample,]
@@ -232,6 +232,7 @@ drawDynamicsFromLoadCell <- function(
                      ylim=c(0, yHeight),
                      #main = dynamics$nameOfFile,
                     yaxs= "i", xaxs = "i")
+                
         }