[chronojump] Fixed infinite error in force model

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

commit 2b13ae84944a0d304e4d1e0156f3288255ad829f
Author: Xavier Padullés <testing chronojump org>
Date:   Fri Jan 15 10:20:31 2021 +0100

    Fixed infinite error in force model

 r-scripts/maximumIsometricForce.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index f122ea70..4268b5e5 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -113,7 +113,7 @@ getForceModel <- function(time, force, startTime, # startTime is the instant whe
     K = summary(model)$coeff[2,1]
     # print(summary(model))
     # print("leaving getForceModel()")
-    return(list(fmax = fmax, K = K, T0 = T0, error = 100*residuals(model)/data$force))
+    return(list(fmax = fmax, K = K, T0 = T0, error = 100*residuals(model)/mean(data$force)))
 }
 
 getDynamicsFromLoadCellFile <- function(captureOptions, inputFile, averageLength = 0.1, percentChange = 5, 
testLength = -1)