[chronojump] Fixed a bug on maximumIsometricForce.R since last commit

[Xavier de Blas <xaviblas src gnome org>]

commit 776f14c115f551dedd609f51d3dec1917702b78e
Author: Xavier de Blas <xaviblas gmail com>
Date:   Sat Feb 20 21:38:55 2021 +0100

    Fixed a bug on maximumIsometricForce.R since last commit

 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 281a289e..48a32d12 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -1122,7 +1122,7 @@ plotABGraph <- function(pngFile, dataFile, decimalChar, title, exercise, datetim
        plot(y ~ x, type="l")
 
        #mark max point
-       points(x[which(y == max(y))], max(y), col="red", cex=2)
+       points(x[which(y == max(y))[1]], max(y), col="red", cex=2)
 
        endGraph()
 }