[chronojump] MIF. Fixed Fmax value in legend

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

commit 5312ff633b36a9bcf9ca05fa26dc885ad3559f05
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Oct 16 19:04:44 2017 +0200

    MIF. Fixed Fmax value in legend

 r-scripts/maximumIsometricForce.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 0ddbdaa..2765010 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -380,7 +380,7 @@ drawDynamicsFromLoadCell <- function(
         print("-----------RFD-----------")
         print(paste("op$drawRfdOptions =", op$drawRfdOptions))
         
-        legendText = c(paste("Fmax =", round(dynamics$fmax.fitted, digits = 2), "N"), paste("K = ", 
round(dynamics$k.fitted, digits = 2), "N/s"))
+        legendText = c(paste("Fmax =", round(dynamics$fmax.fitted + dynamics$initf, digits = 2), "N"), 
paste("K = ", round(dynamics$k.fitted, digits = 2), "N/s"))
         legendColor = c("blue", "blue")
         
         for (n in 1:length(rfdDrawingOptions))