[chronojump] 1RM prediction

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

commit 4d3bb9126213e6900812a5ceb1d9a1cd9bbefd18
Author: Xavier Padullés <x padulles gmail com>
Date:   Mon Oct 26 18:58:59 2015 +0100

    1RM prediction

 encoder/RM.R |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)
---
diff --git a/encoder/RM.R b/encoder/RM.R
new file mode 100644
index 0000000..27c1751
--- /dev/null
+++ b/encoder/RM.R
@@ -0,0 +1,11 @@
+RMIndirect <- function(Q, nrep){
+        rm = c(0,0,0,0,0,0,0)
+        rm[1] = Q * (36 / (37 - nrep))                                    #brzycki
+        rm[2] = Q * (1 + 0.0333  *  nrep)                                 #Epley
+        rm[3] = (100 * Q) / (101.3 - 2.67123 * nrep)                      #lander   
+        rm[4] = Q * nrep^0.1                                              #lombardi
+        rm[5] = (100 * Q) / (52.2 + (41.9 * exp(-0.055 * nrep)))          #mayhew
+        rm[6] = Q * (1 + 0.025 * nrep)                                    #oconner
+        rm[7] = (100 * Q) / (48.8 + (53.8 * exp(-0.075 * nrep)))          #wathan
+        return(rm)
+}
\ No newline at end of file