[chronojump] Better margins for maximumIsometricForce graph

[Xavier de Blas <xaviblas src gnome org>]

commit 651462818f7de1784b22d450f6347b4ab7b42d9c
Author: Xavier de Blas <xaviblas gmail com>
Date:   Sun Jun 11 12:31:38 2017 -0300

    Better margins for maximumIsometricForce graph

 r-scripts/maximumIsometricForce.R |    7 +++++--
 1 files changed, 5 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 6451564..162024c 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -211,13 +211,15 @@ drawDynamicsFromLoadCell <- function(
                 yHeight = max(dynamics$fmax.raw, dynamics$fmax.fitted) * 1.1
         }
                 
+       par(mar=c(4,4,1,1))
         #Plotting raw data from startTime to endTime (Only the analysed data)
         if (!is.na(xlimits[1])){
                 xWidth = xlimits[2] - xlimits[1]
                 plot(dynamics$time[dynamics$startSample:dynamics$endSample] , 
dynamics$f.raw[dynamics$startSample:dynamics$endSample],
                      type="l", xlab="Time[s]", ylab="Force[N]",
                      xlim = xlimits, ylim=c(0, yHeight),
-                     main = dynamics$nameOfFile, yaxs= "i", xaxs = "i")
+                     #main = dynamics$nameOfFile,
+                    yaxs= "i", xaxs = "i")
                 xmin = xlimits[1]
                 xmax = xlimits[2]
                 points(dynamics$time[dynamics$startSample:dynamics$endSample] , 
dynamics$f.raw[dynamics$startSample:dynamics$endSample])
@@ -229,7 +231,8 @@ drawDynamicsFromLoadCell <- function(
                      type="l", xlab="Time[s]", ylab="Force[N]",
                      xlim = c(xmin, xmax),
                      ylim=c(0, yHeight),
-                     main = dynamics$nameOfFile, yaxs= "i", xaxs = "i")
+                     #main = dynamics$nameOfFile,
+                    yaxs= "i", xaxs = "i")
         }