diff preprocess.R @ 0:a89bae08bf2d

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/preprocess.R	Mon Apr 27 05:48:52 2015 -0400
@@ -0,0 +1,25 @@
+args<-commandArgs(TRUE)
+
+chip=args[1]
+dataset=args[2]
+workdir=args[3]
+celPath=args[4]
+chipPath=args[4]
+tumor=args[5]
+settingType=args[6]
+outputgraph=type.convert(args[7])
+tag=args[8]
+
+if (tag=="")
+{
+	tag=NULL
+}
+
+library(MPAgenomics)
+setwd(workdir)
+if (settingType=="standard")
+{
+	signalPreProcess(dataSetName=dataset, chipType=chip, dataSetPath=celPath,chipFilesPath=chipPath, path=workdir,createArchitecture=TRUE, savePlot=outputgraph, tags=tag)
+} else {
+	signalPreProcess(dataSetName=dataset, chipType=chip, dataSetPath=celPath,chipFilesPath=chipPath, normalTumorArray=tumor, path=workdir,createArchitecture=TRUE, savePlot=outputgraph, tags=tag)
+}
\ No newline at end of file