[chronojump] SprintEncoder R graph mean speed shown at vertical middle of bar

[Xavier de Blas <xaviblas src gnome org>]

commit 4745bfd21430ebee503403009f6bfcf6ce74cb11
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Jul 16 16:42:32 2020 +0200

    SprintEncoder R graph mean speed shown at vertical middle of bar

 r-scripts/sprintEncoder.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index 1ea29a62..350467b5 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -371,7 +371,7 @@ plotSprintFromEncoder <- function(sprintRawDynamics, sprintFittedDynamics,
                 print("########")
                 lapTime = diff(c(0, splitTime))
                 textXPos = c(0,splitTime[1:length(splitTime) -1]) + lapTime/2
-                text(textXPos, meanSpeed, round(meanSpeed, digits = 2), pos = 3)
+                text(textXPos, meanSpeed/2, round(meanSpeed, digits = 2), pos = 3)
                 text(textXPos, 0, paste(round(lapTime, digits = 3), " s", sep = ""), pos = 3)
         } else
         {