annotate GetAllPatterns.R @ 8:03aa1c6fe091 draft

Uploaded
author ning
date Fri, 15 Mar 2013 18:21:47 -0400
parents 9cf7a632a73e
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5
9cf7a632a73e Uploaded
ning
parents:
diff changeset
1 sink(file="/tmp/none")
9cf7a632a73e Uploaded
ning
parents:
diff changeset
2 sink("/dev/null")
9cf7a632a73e Uploaded
ning
parents:
diff changeset
3 options(warn=-1)
9cf7a632a73e Uploaded
ning
parents:
diff changeset
4 options(echo=F)
9cf7a632a73e Uploaded
ning
parents:
diff changeset
5
9cf7a632a73e Uploaded
ning
parents:
diff changeset
6 invisible("EBSeq")
9cf7a632a73e Uploaded
ning
parents:
diff changeset
7 suppressMessages(library("EBSeq"))
9cf7a632a73e Uploaded
ning
parents:
diff changeset
8
9cf7a632a73e Uploaded
ning
parents:
diff changeset
9 args <- commandArgs()
9cf7a632a73e Uploaded
ning
parents:
diff changeset
10 inputfile <- args[6]
9cf7a632a73e Uploaded
ning
parents:
diff changeset
11 outputfile <- args[7]
9cf7a632a73e Uploaded
ning
parents:
diff changeset
12 #PairwisePlots <-args[6]
9cf7a632a73e Uploaded
ning
parents:
diff changeset
13
9cf7a632a73e Uploaded
ning
parents:
diff changeset
14 print(args)
9cf7a632a73e Uploaded
ning
parents:
diff changeset
15
9cf7a632a73e Uploaded
ning
parents:
diff changeset
16 Conds=strsplit(inputfile,split=",")[[1]]
9cf7a632a73e Uploaded
ning
parents:
diff changeset
17
9cf7a632a73e Uploaded
ning
parents:
diff changeset
18
9cf7a632a73e Uploaded
ning
parents:
diff changeset
19 Out=GetPatterns(Conds)
9cf7a632a73e Uploaded
ning
parents:
diff changeset
20
9cf7a632a73e Uploaded
ning
parents:
diff changeset
21
9cf7a632a73e Uploaded
ning
parents:
diff changeset
22 write.table(Out,file=outputfile,quote=F,col.names=T,row.names=T,sep = "\t")
9cf7a632a73e Uploaded
ning
parents:
diff changeset
23