[chronojump] Encoder: fixed mean power non-propulsive on graphs

[Xavier de Blas <xaviblas src gnome org>]

commit 0cfd076eaf418cd96edeb38f0172b31342534d6b
Author: Xavier de Blas <xaviblas gmail com>
Date:   Wed Feb 27 13:27:22 2013 +0100

    Encoder: fixed mean power non-propulsive on graphs

 encoder/graph.R |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index e4ab934..719ceca 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -186,13 +186,13 @@ kinematicsF <- function(a, mass, smoothingOne, g) {
 }
 
 powerBars <- function(kinematics) {
-       meanSpeed <- mean(abs(kinematics$speedy))
+       meanSpeed <- mean(kinematics$speedy)
        maxSpeed <- max(abs(kinematics$speedy))
-       meanPower <- mean(abs(kinematics$power))
+       meanPower <- mean(kinematics$power)
        peakPower <- max(abs(kinematics$power))
        peakPowerT <- min(which(abs(kinematics$power) == peakPower))
        pp_ppt <- peakPower / (peakPowerT/1000) # ms->s
-       meanForce <- mean(abs(kinematics$force))
+       meanForce <- mean(kinematics$force)
        maxForce <- max(abs(kinematics$force))
 
        #here paf is generated
@@ -815,6 +815,7 @@ doProcess <- function(options) {
                par(mar=c(2,2.5,2,1))
        }
 
+       #when a csv is used (it links to lot of files) then singleFile = false
        singleFile = TRUE
        if(nchar(File) >= 40) {
                #file="/tmp...../chronojump-encoder-graph-input-multi.csv"