[chronojump] Initial testing with world chanpionships data

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

commit 787e023093caa8193f6ec2268b8848aeb781edcf
Author: Xavier Padullés <testing chronojump org>
Date:   Fri Dec 18 16:22:26 2020 +0100

    Initial testing with world chanpionships data

 r-scripts/tests/shortsLibrary/learningShorts.R | 1 +
 r-scripts/tests/shortsLibrary/validation.R     | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)
---
diff --git a/r-scripts/tests/shortsLibrary/learningShorts.R b/r-scripts/tests/shortsLibrary/learningShorts.R
index 280d19c4..51a05958 100644
--- a/r-scripts/tests/shortsLibrary/learningShorts.R
+++ b/r-scripts/tests/shortsLibrary/learningShorts.R
@@ -10,6 +10,7 @@ split_times3 <- data.frame(
     time = c(1.614, 2.821, 3.966)
 )
 
+
 # get the model adjusting the time_correction to the best fit
 getModelWithOptimalTimeCorrection <- function(split_times)
 {
diff --git a/r-scripts/tests/shortsLibrary/validation.R b/r-scripts/tests/shortsLibrary/validation.R
index ac0b8a42..c5fe1a9f 100644
--- a/r-scripts/tests/shortsLibrary/validation.R
+++ b/r-scripts/tests/shortsLibrary/validation.R
@@ -32,7 +32,7 @@ for(i in 1:length(WorlChampionshipSplitTimes[,1])){
         position = c(10,20,30),
         time = c(WorlChampionshipSplitTimes[i,5], WorlChampionshipSplitTimes[i,6], 
WorlChampionshipSplitTimes[i,7])
     )
-    
+
     # Padu's 3 split times model without correction
     model = nls(position ~ Vmax*(time + (1/K)*exp(-K*time)) -Vmax/K, splitTimes3
                 , start = list(K = 0.81, Vmax = 10), control=nls.control(warnOnly=TRUE))