diff --git a/scripts/mean.r b/scripts/mean.r
deleted file mode 100755
index 5347793..0000000
--- a/scripts/mean.r
+++ /dev/null
@@ -1,10 +0,0 @@
-#! /usr/bin/env Rscript
-gm_mean = function(x, na.rm=TRUE){
-  exp(sum(log(x[x > 0]), na.rm=na.rm) / length(x))
-}
-
-d<-scan("stdin", quiet=TRUE)
-cat(sprintf("%12s %12.3f\n", "min", min(d)))
-cat(sprintf("%12s %12.3f\n", "max", max(d)))
-cat(sprintf("%12s %12.3f\n", "median", median(d)))
-cat(sprintf("%12s %12.3f\n", "geom mean", gm_mean(d)))