[chronojump] Experimenting with impulse (Area under the curve)

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

commit 11a4076f35dbffe4268f8c99717efd2340bbe4f9
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed Apr 19 17:49:26 2017 +0200

    Experimenting with impulse (Area under the curve)

 r-scripts/maximumIsometricForce.R |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)
---
diff --git a/r-scripts/maximumIsometricForce.R b/r-scripts/maximumIsometricForce.R
index a063a06..45794c9 100644
--- a/r-scripts/maximumIsometricForce.R
+++ b/r-scripts/maximumIsometricForce.R
@@ -206,6 +206,10 @@ drawDynamicsFromLoadCell <- function(
                      main = dynamics$nameOfFile, yaxs= "i", xaxs = "i")
         }
         
+        #Plotting impulse (area under the curve)
+        polygon(c(dynamics$time[dynamics$startSample:dynamics$endSample], dynamics$time[dynamics$endSample], 
dynamics$time[dynamics$startSample]),
+                c(dynamics$f.raw[dynamics$startSample:dynamics$endSample], 0, 0), col = "grey")
+
         #Plotting not analysed data
         lines(dynamics$time[1:dynamics$startSample] , dynamics$f.raw[1:dynamics$startSample], col = "grey") 
#Pre-analysis
         lines(dynamics$time[dynamics$endSample: dynamics$totalSample] , dynamics$f.raw[dynamics$endSample: 
dynamics$totalSample], col = "grey") #Post-analysis