[chronojump] MIF. Fixed fitted MaxRFD

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

commit b9d8f7c4d3ed64af005f1c3e900b0ba92db89afc
Author: Xavier Padullés <x padulles gmail com>
Date:   Tue Oct 17 18:44:42 2017 +0200

    MIF. Fixed fitted MaxRFD

 r-scripts/maximumIsometricForce.R |   13 +++++++++++++
 1 files changed, 13 insertions(+), 0 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 3e34249..60ba55d 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -533,6 +533,19 @@ drawDynamicsFromLoadCell <- function(
                                 if (RFDoptions$rfdFunction == "FITTED")
                                 {
                                         #max is always in the initial point.
+                                        RFDoptions$start = 0
+                                        #Finding the sample at which the RFD is calculated
+                                        sample1 =  dynamics$startSample
+                                        sample2 = NULL #Only one point in instantaneous mode
+                                        
+                                        #Slope of the line. Deriving the model:
+                                        RFD = dynamics$fmax.fitted * dynamics$k.fitted
+                                        #Y coordinate of a point of the line
+                                        pointForce1 = dynamics$initf
+                                        pointForce2 = NULL
+                                        
+                                        legendText = c(legendText, paste("RFDMax", " = ", round(RFD, digits 
= 1), " N/s", sep = ""))
+                                        legendColor = c(legendColor, "blue")
                                         
                                 } else if(RFDoptions$rfdFunction == "RAW")
                                 {