From 706e35f8d77558fad5eb640d0dddf3a8a8b4b555 Mon Sep 17 00:00:00 2001 From: Alinson Xavier Date: Sat, 4 Apr 2015 08:45:53 -0400 Subject: [PATCH] Delete unused script --- scripts/mean.r | 10 ---------- 1 file changed, 10 deletions(-) delete mode 100755 scripts/mean.r 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)))