[chronojump] MIF. Fixed legend colors

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

commit 0c7bacdbad459df7d4742a6408fd6e07755610a0
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Dec 18 11:56:58 2017 +0100

    MIF. Fixed legend colors

 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 7787ea2..6a37577 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -376,7 +376,7 @@ drawDynamicsFromLoadCell <- function(
                       paste("K = ", round(dynamics$k.fitted, digits = 2),"s⁻¹"),
                       paste("τ = ", round(dynamics$tau.fitted, digits = 2),"s")
                       )
-        legendColor = c("blue", "blue")
+        legendColor = c("blue", "blue", "blue")
         
         #The coordinates where the lines and dots are plotted are calculated with the sampled data in raw 
and fitted data.
         #The slopes are calculated in that points