[chronojump] SprintEncoder R graph mean speed shown at vertical middle of bar
- From: Xavier de Blas <xaviblas src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [chronojump] SprintEncoder R graph mean speed shown at vertical middle of bar
- Date: Thu, 16 Jul 2020 14:43:05 +0000 (UTC)
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
{
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]