[chronojump] MIF. Added MeanError in legend

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

commit 05c266233859639fd70db470f4d63f49bc293eca
Author: Xavier Padullés <x padulles gmail com>
Date:   Thu May 9 13:18:56 2019 +0200

    MIF. Added MeanError in legend

 r-scripts/maximumIsometricForce.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index e0a44522..600cd21b 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -190,7 +190,8 @@ getDynamicsFromLoadCellFile <- function(inputFile, averageLength = 0.1, percentC
                     tfmax.raw = tfmax.raw,
                     rfd = rfd,
                     f.raw = originalTest$force, f.smoothed = f.smoothed, f.fitted = f.fitted,
-                    endTime = endTime))
+                    endTime = endTime,
+                    relativeError = relativeError))
 }
 
 drawDynamicsFromLoadCell <- function(
@@ -597,6 +598,9 @@ drawDynamicsFromLoadCell <- function(
                legendText = c(legendText, impulseLegend)
                 legendColor = c(legendColor, impulseColor)
        }
+        
+        legendText = c(legendText, paste("MeanError = ", round(dynamics$relativeError, digits = 2), " N", 
sep =""))
+        legendColor = c(legendColor, "red")
 
        legend(x = xmax, y = dynamics$fmax.fitted/2, legend = legendText, xjust = 1, yjust = 0.1, text.col = 
legendColor)
 }