Mercurial > repos > ning > ebseq

comparison GetAllPatterns.R @ 40:2f3c2a102dc3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author ning
date Mon, 16 Jun 2014 16:24:00 -0400
parents
children
comparison
equal deleted inserted replaced
39:48de96168a98 40:2f3c2a102dc3
1 sink(file="/tmp/none")
2 sink("/dev/null")
3 options(warn=-1)
4 options(echo=F)
5
6 invisible("EBSeq")
7 suppressMessages(library("EBSeq"))
8
9 args <- commandArgs()
10 inputfile <- args[6]
11 outputfile <- args[7]
12 #PairwisePlots <-args[6]
13
14 print(args)
15
16 Conds=strsplit(inputfile,split=",")[[1]]
17
18
19 Out=GetPatterns(Conds)
20
21
22 #write.table(Out,file=outputfile,quote=F,col.names=T,row.names=T,sep = "\t")
23 write.table(Out,file=outputfile,quote=F,col.names=NA,row.names=T,sep = "\t") ##cms - changed on 11/11/13
24