Update random_functions

Added the 'find midpoints' function
nzcoops · May 23, 2014 · 9570b94 · 9570b94
1 parent ce83d2e
commit 9570b94
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/random_functions b/random_functions
@@ -365,3 +365,10 @@ sum.gee <- function(mod, ci=0.95){
   return(res)
 }
 
+# find midpoints
+
+midpoints <- function(x, dp=2){
+  lower <- as.numeric(gsub(",.*","",gsub("\\(|\\[|\\)|\\]","", x)))
+  upper <- as.numeric(gsub(".*,","",gsub("\\(|\\[|\\)|\\]","", x)))
+  return(round(lower+(upper-lower)/2, dp))
+}