[chronojump] MIF. Fixed problem in average RFD when start == end

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

commit b5c4fcddeca49d415c740d940d7092be38d391e7
Author: Xavier Padullés <x padulles gmail com>
Date:   Thu May 17 10:45:52 2018 +0200

    MIF. Fixed problem in average RFD when start == end

 r-scripts/maximumIsometricForce.R |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index 3ff9cc4..8ecb645 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -376,6 +376,9 @@ drawDynamicsFromLoadCell <- function(
                 
                 print(paste("---- RFD number", n, "--------"))
                 print(options)
+                if(RFDoptions$type == "AVERAGE" & (RFDoptions$start == RFDoptions$end)){
+                        RFDoptions$type = "INSTANTANEOUS"
+                }
                 if(RFDoptions$rfdFunction == "-1")        
                 {
                         next