data(ScISIC)
data(AtongPair)
pairSL <- AtongPair[ AtongPair[,3],]
SLlist <- split(as.character(pairSL[,2]),as.character(pairSL[,1]))
##Number of synthetic lethal pairs within the same complexe
bySL <-byComplex(SLlist, ScISIC)
Run the code above in your browser using DataLab