source("E:/St Jude/StatResearch/AssumpAve/CSDA Revision/AAA-library.R")

data.dir<-"E:/St Jude/StatResearch/AssumpAve/CSDA Revision/"

expr.file<-paste(data.dir,"Expression.txt",sep="")
samp.file<-paste(data.dir,"SampleInfo.txt",sep="")
sampID.col<-1
grplbl.col<-2

result.file<-paste(data.dir,"AAA-Results.txt",sep="")

aaa.2grp(samp.file,
         sampID.col,
         grplbl.col,
         expr.file,
         result.file)