[chronojump] MIF. Fixed raw instantaneous RFD

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

commit 1e0c4881920f5f3a593f24630ef15b59cb441e43
Author: Xavier Padullés <x padulles gmail com>
Date:   Thu Oct 19 09:13:17 2017 +0200

    MIF. Fixed raw instantaneous RFD

 r-scripts/maximumIsometricForce.R |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index abdcc8c..1be68c1 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -555,6 +555,7 @@ drawDynamicsFromLoadCell <- function(
                                 {
                                         #Calculing the sample at which the rfd is max
                                         sample1 = which.max(dynamics$rfd)
+                                        sample2 = NULL
                                         
                                         #Translating RFDoptions$start to time in seconds
                                         RFDoptions$start = dynamics$time[sample1] - dynamics$startTime
@@ -564,6 +565,7 @@ drawDynamicsFromLoadCell <- function(
                                         
                                         #Y coordinate of a point of the line
                                         pointForce1 = dynamics$f.raw[sample1]
+                                        pointForce2 = NULL
                                         
                                         legendText = c(legendText, paste("RFDmax = ", round(RFD, digits = 
1), " N/s", sep = ""))
                                         legendColor = c(legendColor, "black")