[chronojump] more trimming at the previous MIF signal

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

commit efdda278c838c1f39c0226d94d5426f4c5ae2b6a
Author: Xavier Padullés <x padulles gmail com>
Date:   Fri Jun 2 17:03:45 2017 +0200

    more trimming at the previous MIF signal

 r-scripts/maximumIsometricForce.R |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 5d049c3..6451564 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -162,7 +162,7 @@ getDynamicsFromLoadCellFile <- function(inputFile, averageLength = 0.1, percentC
         rfd50pfmax.fitted = model$fmax * model$K * exp(-model$K*(t50fmax.fitted - startTime))
         
         return(list(nameOfFile = inputFile, time = originalTest[, "time"], fmax.fitted = model$fmax, 
k.fitted = model$K,
-                    startTime = startTime, entTime = endTime,
+                    startTime = startTime, endTime = endTime,
                     startSample = startSample, endSample = endSample,
                     totalSample = length(originalTest$time),
                     initf = initf,
@@ -222,7 +222,7 @@ drawDynamicsFromLoadCell <- function(
                 xmax = xlimits[2]
                 points(dynamics$time[dynamics$startSample:dynamics$endSample] , 
dynamics$f.raw[dynamics$startSample:dynamics$endSample])
         } else if (is.na(xlimits[1])){
-                xmin = dynamics$time[dynamics$startSample] - 0.5
+                xmin = dynamics$startTime - (dynamics$endTime - dynamics$startTime)*0.1
                 xmax = min(c(dynamics$endTime*1.1 - dynamics$startTime*0.1, dynamics$t0 + 1))
                 xWidth = xmax - xmin
                 plot(dynamics$time[dynamics$startSample:dynamics$endSample] , 
dynamics$f.raw[dynamics$startSample:dynamics$endSample],