[chronojump] MIF. Fixed K units

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

commit 3db1d1d2c88cd0b37ea85956c706e967955cf71b
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed Nov 22 16:55:08 2017 +0100

    MIF. Fixed K units

 r-scripts/maximumIsometricForce.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 23822a2..e597104 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -343,7 +343,7 @@ drawDynamicsFromLoadCell <- function(
         print("-----------RFD-----------")
         print(paste("op$drawRfdOptions =", op$drawRfdOptions))
         
-        legendText = c(paste("Fmax =", round(dynamics$fmax.fitted + dynamics$initf, digits = 2), "N"), 
paste("K = ", round(dynamics$k.fitted, digits = 2), "N/s"))
+        legendText = c(paste("Fmax =", round(dynamics$fmax.fitted + dynamics$initf, digits = 2), "N"), 
paste("K = ", round(dynamics$k.fitted, digits = 2),"s⁻¹"))
         legendColor = c("blue", "blue")
         
         #The coordinates where the lines and dots are plotted are calculated with the sampled data in raw 
and fitted data.