From e8cf8558b7d071f800a65c3688f19d5ae400c33f Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 26 Jun 2014 10:26:49 +0200
Subject: Add function for geometric mean

---
 R/geometric_mean.R | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 R/geometric_mean.R

(limited to 'R/geometric_mean.R')

diff --git a/R/geometric_mean.R b/R/geometric_mean.R
new file mode 100644
index 00000000..646732cd
--- /dev/null
+++ b/R/geometric_mean.R
@@ -0,0 +1,4 @@
+geometric_mean <- function(x, na.rm = FALSE)
+{
+  exp(mean(log(x), na.rm = na.rm))
+}
-- 
cgit v1.2.1