[chronojump/optimizeRFD: 1/3] Fixed point drawing of maximum raw force

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

commit bc63560a773308c9b80716a0db0896f8b07f5c53
Author: Xavier Padullés <testing chronojump org>
Date:   Mon Nov 23 15:06:26 2020 +0100

    Fixed point drawing of maximum raw force

 r-scripts/maximumIsometricForce.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 95ca8e93..15699ad8 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -195,7 +195,8 @@ getDynamicsFromLoadCellFile <- function(captureOptions, inputFile, averageLength
     
     f0.raw = originalTest$force[startSample]                              # Force at startTime. ATENTION. 
This value is different than previousForce
     rfd0.fitted = model$fmax * model$K                                  # RFD at t=0ms using the exponential 
model
-    tfmax.raw = originalTest$time[which.min(abs(originalTest$force - fmax.raw))] - startTime            # 
Time needed to reach the Fmax
+    # tfmax.raw = originalTest$time[which.min(abs(originalTest$force - fmax.raw))] - startTime            # 
Time needed to reach the Fmax
+    tfmax.raw = originalTest$time[which.min(abs(originalTest$force - fmax.raw))]            # Time needed to 
reach the Fmax
 
     return(list(nameOfFile = inputFile, time = originalTest$time,
                 fmax.fitted = model$fmax, k.fitted = model$K, tau.fitted = 1/model$K,