[chronojump] Fixed equivalent mass formula

[Xavier de Blas <xaviblas src gnome org>]

commit bca1491429d722b5791c4bce1a2440f8b7a2f49d
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Nov 16 10:45:06 2020 +0100

    Fixed equivalent mass formula

 encoder/util.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
---
diff --git a/encoder/util.R b/encoder/util.R
index 6586dda4..9477d789 100644
--- a/encoder/util.R
+++ b/encoder/util.R
@@ -827,7 +827,7 @@ pafGenerate <- function(eccon, kinematics, massBody, massExtra, laterality, iner
        #massEq calculation
        massEq <- 0
        if(inertiaMomentum > 0 && gearedDown > 0 && diameter > 0)
-               massEq <- 10000 * inertiaMomentum * gearedDown / 4 / (diameter^2)
+               massEq <- 10000 * inertiaMomentum * 1/gearedDown / 4 / (diameter^2)
 
        return(data.frame(
                          meanSpeed, maxSpeed, maxSpeedT,