[chronojump] fixed fitted relative power in getRadarDynamicsFromFolder

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

commit 8879bfd46a3cc5dd8bffbaaf6afffbfb18ce7f80
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Mar 27 17:10:39 2017 +0200

    fixed fitted relative power in getRadarDynamicsFromFolder

 r-scripts/sprintRadar.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/r-scripts/sprintRadar.R b/r-scripts/sprintRadar.R
index 297a289..b7bcd27 100644
--- a/r-scripts/sprintRadar.R
+++ b/r-scripts/sprintRadar.R
@@ -145,7 +145,7 @@ getRadarDynamicsFromFolder <- function(radDir, athletesFile, splitDistance, resu
                 results$sfv.lm[n] = dynamics$sfv.lm
                 results$sfv.rel.lm[n] = dynamics$sfv.rel.lm
                 results$pmax.fitted[n] = dynamics$pmax.fitted
-                results$pmax.rel.fitted[n] = dynamics$pmax.fitted
+                results$pmax.rel.fitted[n] = dynamics$pmax.fitted / athletes$Mass[n]
                 results$tpmax.fitted[n] = dynamics$tpmax.fitted
                 results$pmax.lm[n] = dynamics$pmax.lm
                 results$pmax.rel.lm[n] = dynamics$pmax.rel.lm