Initial commitHEADmaster

1 files changed, 12 insertions, 0 deletions

diff --git a/R/hist.R b/R/hist.R
new file mode 100755
index 0000000..b04ae8e
--- /dev/null
+++ b/R/hist.R
@@ -0,0 +1,12 @@
+files = commandArgs(trailingOnly=TRUE);
+if (length(files) < 2) {
+   quit();
+}
+
+png(files[1]);
+par(mfcol=(2, ceiling((length(files)-1)/2)));
+
+for (f in files[2:length(files)) {
+    x = read.table(f, sep="\t")[[2]];
+    hist(x);
+}