--- a/findDMR/findDMR.R	Mon Feb 06 10:44:03 2017 -0500
+++ b/findDMR/findDMR.R	Mon Feb 20 08:32:26 2017 -0500
@@ -6,8 +6,8 @@
 
 args <- commandArgs(trailingOnly = TRUE)
 GSMTable = args[1]
-IlmnTable = args[2]
-gmTable = args[3]
+platform = args[2]
+Data_Table = args[3]
 cutoff = as.numeric(args[4])
 clusterSize = as.numeric(args[5])
 DMR = args[6]
@@ -15,9 +15,9 @@
 #GSMTable<-("test-data/input.csv")
 TAB = fread(GSMTable)
 #IlmnTable <- ("test-data/IlmnTable.csv")
-IlmnInfo = fread(IlmnTable)
+IlmnInfo = fread(platform)
 #gmTable<-("test-data/gmTable.csv")
-gmSet = fread(gmTable)
+gmSet = fread(Data_Table)
 
 # bumphunter Run with processed data
 designMatrix <- model.matrix( ~ TAB$Phenotype)