[chronojump] RaceAnalyzer: Fixed formula for new encoder

[Xavier de Blas <xaviblas src gnome org>]

commit 8ef8c5f7c20ab2b18f3eae9109c45f6e9143ccb1
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Jun 11 16:49:26 2019 +0200

    RaceAnalyzer: Fixed formula for new encoder

 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 d7957612..7ea49488 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -74,7 +74,7 @@ getSprintFromEncoder <- function(filename, testLength, Mass, Temperature = 25, H
         #raceAnalyzer$displacement = raceAnalyzer$displacement * 2 * pi * diameter / 200
         #In 30m there are 12267 pulses.
         #TODO: measure this several times to have an accurate value
-        raceAnalyzer$displacement = raceAnalyzer$displacement * 30 / 12267
+        raceAnalyzer$displacement = 4 * raceAnalyzer$displacement * 30 / 12267
         position = cumsum(raceAnalyzer$displacement)
         speed = raceAnalyzer$displacement / elapsedTime
         accel = (speed[3] - speed[1]) / (totalTime[3] - totalTime[1])