[chronojump] minor fix

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

commit 02912a8ea859193e8cb125d45d3dd397da5c066a
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed May 17 17:33:02 2017 +0200

    minor fix

 r-scripts/maximumIsometricForce.R |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 0e1e031..3fdbcf4 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -222,7 +222,7 @@ drawDynamicsFromLoadCell <- function(
         }
         
         text( x = min(which(dynamics$f.raw == max(dynamics$f.raw))/100), y = dynamics$fmax.raw,
-              labels = paste("Fmax = ", round(dynamics$fmax.raw, digits=2), " N", sep=""), pos = 3)
+              labels = paste("Fmax = ", round(dynamics$fmax.raw, digits=2), " N", sep=""), pos = 3, cex = 
1.5)
         
         #Plotting Impulse
         
@@ -313,8 +313,10 @@ drawDynamicsFromLoadCell <- function(
         lines(dynamics$time, dynamics$f.fitted, col="blue")
         text(x = dynamics$time[dynamics$totalSample] - 0.1, y = dynamics$fmax.fitted + dynamics$initf,
              labels = paste("Fmax =", round(dynamics$fmax.fitted + dynamics$initf, digits = 2), "N"), pos = 
1, col="blue")
-        axis(2, at = dynamics$fmax.fitted + dynamics$initf, labels = round(dynamics$fmax.fitted + 
dynamics$initf, digits = 2),
-             line = 2, col = "blue")
+        abline(h = dynamics$fmax.fitted + dynamics$initf, lty = 2, col = "blue")
+        text(x = mean(c(xmax, xmin)), y = dynamics$fmax.fitted + dynamics$initf,
+             labels = paste("Fmax =", round(dynamics$fmax.fitted + dynamics$initf,digits = 2)),
+             col = "blue", pos = 3, cex = 1.5)
         
         #Plottting smoothed data
         #lines(dynamics$time, dynamics$f.smoothed, col="grey")