[chronojump] forceSensor Display tau on graph RFD legend

[Xavier de Blas <xaviblas src gnome org>]

commit 16fc334bb118b29c19fe7d6d4e7b2876a669537c
Author: Xavier de Blas <xaviblas gmail com>
Date:   Thu Nov 30 12:32:32 2017 +0100

    forceSensor Display tau on graph RFD legend

 r-scripts/maximumIsometricForce.R |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index e597104..00ac69d 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -343,7 +343,11 @@ 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),"s⁻¹"))
+        legendText = c(
+                      paste("Fmax =", round(dynamics$fmax.fitted + dynamics$initf, digits = 2), "N"),
+                      paste("K = ", round(dynamics$k.fitted, digits = 2),"s⁻¹"),
+                      paste("Tau = ", round(1/ 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.