[chronojump] MIF. Fixed fitted average RFD

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

commit 94ad5e2556f2fca406ad680f85487eba86ce53c3
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed Oct 11 12:13:31 2017 +0200

    MIF. Fixed fitted average RFD

 r-scripts/maximumIsometricForce.R |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index c446326..0ddbdaa 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -440,9 +440,10 @@ drawDynamicsFromLoadCell <- function(
                                 if (RFDoptions$rfdFunction == "FITTED")
                                 {
                                         #Slope of the line
-                                        RFD = dynamics$fmax.fitted*(exp( -dynamics$k.fitted * 
RFDoptions$start) - exp( -dynamics$k.fitted * RFDoptions$end)) / (RFDoptions$end - RFDoptions$start)
+                                        RFD = dynamics$fmax.fitted*(exp( -dynamics$k.fitted * 
RFDoptions$start/1000) - exp( -dynamics$k.fitted * RFDoptions$end/1000)) / (RFDoptions$end/1000 - 
RFDoptions$start/1000)
                                         #Y coordinate of a point of the line
-                                        pointForce1 = dynamics$fmax.fitted*(1 - exp( -dynamics$k.fitted * 
RFDoptions$start)) + dynamics$initf
+                                        pointForce1 = dynamics$fmax.fitted*(1 - exp( -dynamics$k.fitted * 
RFDoptions$start/1000)) + dynamics$initf
+                                        pointForce2 = dynamics$fmax.fitted*(1 - exp( -dynamics$k.fitted * 
RFDoptions$end/1000)) + dynamics$initf
                                         
                                         legendText = c(legendText, paste("RFD", RFDoptions$start, "-", 
RFDoptions$end, " = ", round(RFD, digits = 1), " N/s", sep = ""))
                                         legendColor = c(legendColor, "blue")