#rNames <- allBaits
#whichbait <- match(rNames, tableList[["acInfo"]][, "ac"])
#geneBait <- tableList[["acInfo"]][whichbait, "shortLabel"]
#stanNameTmp = sapply(geneBait, function(x) strsplit(x, "_yeast"))
#stanGeneNameBait = unlist(stanNameTmp)
#stanGeneNameBait <- toupper(stanGeneNameBait)
#getRid <- strsplit(stanGeneNameBait, "_", fixed=TRUE)
#stanGeneNameBait <- sapply(getRid, function(t) t[1])

#index1 <- grep("^Q", stanGeneNameBait)
#test1 = allBaits[index1]
#tmpIndex <- tableList[["ac2xref"]][,"ac"] %in% test1
#tmpIndex <- match(test1, tableList[["ac2xref"]][,"ac"])
#tmpIndex <- tmpIndex[!is.na(tmpIndex)]
#nT = tableList[["ac2xref"]][tmpIndex,]
#dbIndex = which(nT[,"db"] == "sgd")
#sgdInfo = split(nT[dbIndex,4], nT[dbIndex,1])
#lapply(sgdInfo, unique)

#test2 = allBaits[-index1]
#tmp2Index <- match(tableList[["ac2xref"]][,"ac"], test2)
#tmp2Index <- tmp2Index[!is.na(tmp2Index)]
#nT2 = tableList[["ac2xref"]][tmp2Index,]
#dbIndex2 = which(nT2[,"db"] == "sgd")
#sgdInfo2 = split(nT2[dbIndex2,4], nT2[dbIndex2,1])
#lapply(sgdInfo2, unique)

#cNames <- allPreys
#whichprey <- match(cNames, tableList[["acInfo"]][, "ac"])
#genePrey <- tableList[["acInfo"]][whichprey, "shortLabel"]
#stanNameTmp = sapply(genePrey, function(x) strsplit(x, "_yeast"))
#stanGeneNamePrey = unlist(stanNameTmp)
#stanGeneNamePrey <- toupper(stanGeneNamePrey)
#getRid <- strsplit(stanGeneNamePrey, "_", fixed=TRUE)
#stanGeneNamePrey <- sapply(getRid, function(t) t[1])

#index3 <- grep("^Q", stanGeneNameBait)
#test3 = allPreys[index3]
#tmp3Index <- tableList[["ac2xref"]][,"ac"] %in% test3
#tmpIndex <- match(test1, tableList[["ac2xref"]][,"ac"])
#tmpIndex <- tmpIndex[!is.na(tmpIndex)]
#nT3 = tableList[["ac2xref"]][tmp3Index,]
#dbIndex3 = which(nT3[,"db"] == "sgd")
#sgdInfo3 = split(nT3[dbIndex3,4], nT3[dbIndex3,1])
#lapply(sgdInfo3, unique)

#test4 = allBaits[-index3]
#tmp4Index <- match(tableList[["ac2xref"]][,"ac"], test4)
#tmp4Index <- tmp4Index[!is.na(tmp4Index)]
#nT4 = tableList[["ac2xref"]][tmp4Index,]
#dbIndex4 = which(nT4[,"db"] == "sgd")
#sgdInfo4 = split(nT4[dbIndex4,4], nT2[dbIndex4,1])
#lapply(sgdInfo4, unique)



#c2S <- as.list(YEASTCOMMON2SYSTEMATIC)
#c2S <- c2S[!is.na(c2S)]

#sysBaitN <- c2S[stanGeneNameBait]
#sysPreyN <- c2S[stanGeneNamePrey]

#names(y2hList) <- sysBaitN
#lapply(y2hList, function(s) rownames(s) = sysPreyN)


