Delete unused script

scripts/mean.r

@@ -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)))