|
|
|
|
@@ -1,27 +1,27 @@
|
|
|
|
|
#GTA (GoTermAveraging) Starting (Working Directory is /Code) All paths relative to /Code
|
|
|
|
|
#Your output may not be reproducible as org.Sc.sgd.db is uploaded from Bioconductor R library and changes
|
|
|
|
|
#Loops thru the number of experiments involved in study. JWR
|
|
|
|
|
Wstudy= getwd()
|
|
|
|
|
if (file.exists('../Exp1/ZScores/ZScores_Interaction.csv')){
|
|
|
|
|
inputFile <- '../Exp1/ZScores/ZScores_Interaction.csv'
|
|
|
|
|
expName= "Exp1"
|
|
|
|
|
dir.create("../GTAresults/Exp1")
|
|
|
|
|
}
|
|
|
|
|
if (file.exists('../Exp2/ZScores/ZScores_Interaction.csv')){
|
|
|
|
|
inputFile[2] <- '../Exp2/ZScores/ZScores_Interaction.csv'
|
|
|
|
|
expName[2]= "Exp2"
|
|
|
|
|
dir.create("../GTAresults/Exp2")
|
|
|
|
|
}
|
|
|
|
|
if (file.exists('../Exp3/ZScores/ZScores_Interaction.csv')){
|
|
|
|
|
inputFile[3] <- '../Exp3/ZScores/ZScores_Interaction.csv'
|
|
|
|
|
expName[3]= "Exp3"
|
|
|
|
|
dir.create("../GTAresults/Exp3")
|
|
|
|
|
}
|
|
|
|
|
if (file.exists('../Exp4/ZScores/ZScores_Interaction.csv')){
|
|
|
|
|
inputFile[4] <- '../Exp4/ZScores/ZScores_Interaction.csv'
|
|
|
|
|
expName[4]= "Exp4"
|
|
|
|
|
dir.create("../GTAresults/Exp4")
|
|
|
|
|
}
|
|
|
|
|
Wstudy= getwd()
|
|
|
|
|
if (file.exists('../Exp1/ZScores/ZScores_Interaction.csv')){
|
|
|
|
|
inputFile <- '../Exp1/ZScores/ZScores_Interaction.csv'
|
|
|
|
|
expName= "Exp1"
|
|
|
|
|
dir.create("../GTAresults/Exp1")
|
|
|
|
|
}
|
|
|
|
|
if (file.exists('../Exp2/ZScores/ZScores_Interaction.csv')){
|
|
|
|
|
inputFile[2] <- '../Exp2/ZScores/ZScores_Interaction.csv'
|
|
|
|
|
expName[2]= "Exp2"
|
|
|
|
|
dir.create("../GTAresults/Exp2")
|
|
|
|
|
}
|
|
|
|
|
if (file.exists('../Exp3/ZScores/ZScores_Interaction.csv')){
|
|
|
|
|
inputFile[3] <- '../Exp3/ZScores/ZScores_Interaction.csv'
|
|
|
|
|
expName[3]= "Exp3"
|
|
|
|
|
dir.create("../GTAresults/Exp3")
|
|
|
|
|
}
|
|
|
|
|
if (file.exists('../Exp4/ZScores/ZScores_Interaction.csv')){
|
|
|
|
|
inputFile[4] <- '../Exp4/ZScores/ZScores_Interaction.csv'
|
|
|
|
|
expName[4]= "Exp4"
|
|
|
|
|
dir.create("../GTAresults/Exp4")
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
outputPathGTA= "../GTAresults"
|
|
|
|
|
#dir.create(outPathGTA)
|
|
|
|
|
|