# HG changeset patch
# User xuebing
# Date 1333216947 14400
# Node ID b1da797d49a5d4d35eb577985aaf4ef0002adba5
# Parent  26b8fea8a9e79f96577b903c93bc5a5c97293533
Uploaded

diff -r 26b8fea8a9e7 -r b1da797d49a5 bed_size_stat.py
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bed_size_stat.py	Sat Mar 31 14:02:27 2012 -0400
@@ -0,0 +1,18 @@
+'''
+plot histogram of interval size
+'''
+
+import os,sys
+
+inputfile = sys.argv[1]
+outputfile = sys.argv[2]
+
+rf = open('tmp.r','w')
+rf.write("x <- read.table('"+inputfile+"')\n")
+rf.write("len <- x[,3]-x[,2]\n")
+rf.write("pdf('"+outputfile+"')\n")
+rf.write("hist(len,breaks=100,xlab='interval size',main=paste('mean=',mean(len),sep=''))\n")
+rf.write("dev.off()")
+rf.close()
+os.system("R --vanilla < tmp.r")    
+os.system('rm tmp.r')