[chronojump] Fixed raceAnalyzer trigger signals with zero displacement

[Xavier Padullés <xpadulles src gnome org>]

commit 6b37a1cfe068bcaac9b329da1bc67627170285ad
Author: Xavier Padullés <testing chronojump org>
Date:   Mon Jan 11 15:00:16 2021 +0100

    Fixed raceAnalyzer trigger signals with zero displacement

 r-scripts/sprintEncoder.R | 3 +++
 1 file changed, 3 insertions(+)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index 31bdd366..12a9b81b 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -80,6 +80,9 @@ getSprintFromEncoder <- function(filename, testLength, Mass, Temperature = 25, H
         
         raceAnalyzer = read.csv2(file = filename, sep = ";")
         colnames(raceAnalyzer) = c("displacement", "time", "force")
+        
+        #Discarding trigger rows with displacement equal to zero
+        raceAnalyzer = raceAnalyzer[which(raceAnalyzer[,"displacement"] != 0), ]
         raceAnalyzer$force = (raceAnalyzer$force) * 0.175806451613 /2  #TODO: Implement the calibration 
factor comming from the arduino
         totalTime = raceAnalyzer$time/1E6     #Converting microseconds to seconds
         elapsedTime = diff(totalTime)      #The elapsed time between each sample