[chronojump] raceAnalyzer export instantaneous exports speed fitted

[Xavier de Blas <xaviblas src gnome org>]

commit ef2d311a881842b30a47afbe16e7fe3c68369872
Author: Xavier de Blas <xaviblas gmail com>
Date:   Fri Jun 25 18:28:29 2021 +0200

    raceAnalyzer export instantaneous exports speed fitted

 r-scripts/sprintEncoder.R | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)
---
diff --git a/r-scripts/sprintEncoder.R b/r-scripts/sprintEncoder.R
index 495be9afb..1301f3dc3 100644
--- a/r-scripts/sprintEncoder.R
+++ b/r-scripts/sprintEncoder.R
@@ -807,9 +807,13 @@ testEncoderCJ <- function(filename, filenameInstantaneous, testLength, splitLeng
 
                        exportInstantaneous <- cbind (sprintRawDynamics$time, sprintRawDynamics$rawPosition,
                                        c(0, sprintRawDynamics$rawSpeed), c(0, 0, 
sprintRawDynamics$rawAccel), #0s are to have same length in all variables
-                                       sprintRawDynamics$rawForce, sprintRawDynamics$rawPower)
+                                       sprintRawDynamics$rawForce, sprintRawDynamics$rawPower,
+                                       sprintRawDynamics$Vmax * (1-exp(-sprintRawDynamics$K * 
sprintRawDynamics$time)) #speed (fitted)
+                                       )
 
-                       colnames(exportInstantaneous) = c("Time", "Position", "Speed", "Accel", "Force", 
"Power")
+                       colnames(exportInstantaneous) = c("Time", "Position",
+                                       "Speed (raw)", "Accel (raw)", "Force (raw)", "Power (raw)",
+                                       "Speed (fitted)", "Accel (fitted)", "Force (fitted)", "Power 
(fitted)")
 
                        if(op$decimalCharAtExport == ".")
                                write.csv(exportInstantaneous, file = filenameInstantaneous, row.names = 
FALSE, na="")