Mercurial > repos > xuebing > sharplabtool
diff tools/mytools/cdf-old-not-used/cdf2.py @ 0:9071e359b9a3
Uploaded
author | xuebing |
---|---|
date | Fri, 09 Mar 2012 19:37:19 -0500 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tools/mytools/cdf-old-not-used/cdf2.py Fri Mar 09 19:37:19 2012 -0500 @@ -0,0 +1,69 @@ +''' +python wrapper for cdf plot +''' + +import os,sys + +filename1 = sys.argv[1] +filename2 = sys.argv[2] +output = sys.argv[3] +c1 = sys.argv[4].strip() +c2 = sys.argv[5].strip() +label1,label2 = sys.argv[6].strip().split(',') +title = sys.argv[8].strip() +log = sys.argv[7] + + + +rf = open('tmp.r','w') + +rf.write("options(warn=-1)\n") + +rf.write("x1 <- read.table('"+filename1+"')\n") +rf.write("x2 <- read.table('"+filename2+"')\n") + + +rf.write("mycdf <- function(x1,x2) {\n") +rf.write(" sx1 <- sort(x1)\n") +rf.write(" sy1 <- c(1:length(sx1))/length(sx1)\n") +rf.write(" sx2 <- sort(x2)\n") +rf.write(" sy2 <- c(1:length(sx2))/length(sx2)\n") +rf.write(" mi <- min(c(x1,x2))\n") +rf.write(" ma <- max(c(x1,x2))\n") +rf.write(" sx1 <- c(mi,sx1,ma)\n") +rf.write(" sx2 <- c(mi,sx2,ma)\n") +rf.write(" sy1 <- c(0,sy1,1)\n") +rf.write(" sy2 <- c(0,sy2,1)\n") +rf.write(" pv <- ks.test(x1,x2)$p.value\n") +rf.write(" list(sx1,sy1,sx2,sy2,pv)\n") +rf.write("}\n") + +rf.write("list1 <- x1[,"+c1+"]\n") +rf.write("list2 <- x2[,"+c2+"]\n") + +rf.write("list1[list1 > 1e10] <- 1e10\n") +rf.write("list2[list2 > 1e10] <- 1e10\n") +rf.write("list1[list1 < -1e10] <- -1e10\n") +rf.write("list2[list2 < -1e10] <- -1e10\n") + +rf.write("max(list1)\n") +rf.write("max(list2)\n") +rf.write("min(list1)\n") +rf.write("min(list2)\n") + + + +if log == 'log': + rf.write("list1 <- log2(list1) \n") + rf.write("list2 <- log2(list2) \n") +rf.write("res <- mycdf(list1,list2)\n") + +rf.write("pdf('"+output+"')\n") +rf.write("plot(res[[1]],res[[2]],type='l',lty=1,lwd=2,col='red',main=paste('"+title+"',format(res[[5]], digit=2,scientific = T),sep=' , p='),xlab='value',ylab='cumulative frequency')\n") +rf.write("lines(res[[3]],res[[4]],type='l',lty=2,lwd=2,col='blue')\n") +rf.write("legend('bottomright',c('"+label1+"','"+label2+"'),col=c('red','blue'), lty=1:2, lwd=2, bty='n')\n") +rf.write("dev.off()\n") + +rf.close() +os.system("R --vanilla < tmp.r") +os.system('rm tmp.r')