[chronojump] Fixed bug on export forceSensor files maxAvgForceInWindowSampleStart/End needed to sum 1 (C# -> R)

[Xavier de Blas <xaviblas src gnome org>]

commit 3abf2f348a4194ba1c7a90e1510e81ce97353127
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Nov 23 17:35:08 2021 +0100

    Fixed bug on export forceSensor files maxAvgForceInWindowSampleStart/End needed to sum 1 (C# -> R)

 r-scripts/maximumIsometricForce.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index a9712c637..e73642529 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -1227,7 +1227,9 @@ start <- function(op)
                        plotABGraph(pngFile, as.vector(dataFiles$fullURL[i]),
                                        dataFiles$decimalChar[i], dataFiles$title[i], dataFiles$exercise[i], 
paste(dataFiles$date[i], dataFiles$time[i], sep=" "),
                                        dataFiles$captureOptions[i], dataFiles$startSample[i], 
dataFiles$endSample[i],
-                                       dataFiles$maxAvgForceInWindow[i], 
dataFiles$maxAvgForceInWindowSampleStart[i], dataFiles$maxAvgForceInWindowSampleEnd[i]
+                                       dataFiles$maxAvgForceInWindow[i],
+                                       (dataFiles$maxAvgForceInWindowSampleStart[i] +1), # +1 because the C# 
count starts at 0 and R at 1
+                                       (dataFiles$maxAvgForceInWindowSampleEnd[i] +1)
                        )
 
                        if(! modelOk)