[chronojump] ForceSensor export AB show vertical ablines to know AB on set

[Xavier de Blas <xaviblas src gnome org>]

commit 78ee2258ccd56904f4c65213b3ddcea7f850eb23
Author: Xavier de Blas <xaviblas gmail com>
Date:   Wed Jun 30 15:36:52 2021 +0200

    ForceSensor export AB show vertical ablines to know AB on set

 r-scripts/maximumIsometricForce.R | 3 +++
 1 file changed, 3 insertions(+)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 2fc21da3e..0b084f5b2 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -1123,6 +1123,9 @@ plotABGraph <- function(pngFile, dataFile, decimalChar, title, exercise, datetim
 
        plot(y ~ x, type="l", xlab="Time (s)", ylab="Force (N)")
 
+       #ablines to know startSample endSample
+       abline(v=c(x[startSample], x[endSample]), lty=2, col="gray20")
+
        #mark max point
        points(x[which(y == max(y))[1]], max(y), col="red", cex=2)