Commit 520e0488 authored by Sayed Rzgar Hosseini's avatar Sayed Rzgar Hosseini
Browse files

Upload New File

parent 0b5dafa3
######################################################################################################################################################################################################
anchor_breast<-read.csv("./Tables/Table10.csv")$Gene
anchor_colorectal<-read.csv("./Tables/Table11.csv")$Gene
Candidate_Breast<-read.csv("./Tables/Table8.csv")$x
Candidate_Colorectal<-read.csv("./Tables/Table9.csv")$x
#############################################################################################################
GlobalESS<-readRDS("./SupplementaryData/SupplementaryData2/Global_ess_corr.rds")
Edges<-readRDS("./SupplementaryData/SupplementaryData2/EDGES.rds")
######################################################################################################################################################################################################
#Breast
coessential_breast<-list()
all_coess_breast<-c()
for (i in 1:40){
print(i)
coessential_breast[[i]]<-row.names(GlobalESS)[as.numeric(which(abs(GlobalESS[which(row.names(GlobalESS)==as.character(anchor_breast[i])),])>0.25))]
all_coess_breast<-c(all_coess_breast,coessential_breast[[i]])
}
all_coess_breast<-unique(all_coess_breast)
all_coess_breast<-intersect(Candidate_Breast,all_coess_breast)
#Colorectal
coessential_colorectal<-list()
all_coess_colorectal<-c()
for (i in 1:43){
print(i)
coessential_colorectal[[i]]<-row.names(GlobalESS)[as.numeric(which(abs(GlobalESS[which(row.names(GlobalESS)==as.character(anchor_colorectal[i])),])>0.25))]
all_coess_colorectal<-c(all_coess_colorectal,coessential_colorectal[[i]])
}
all_coess_colorectal<-unique(all_coess_colorectal)
all_coess_colorectal<-intersect(Candidate_Colorectal,all_coess_colorectal)
#############################################################################################################
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment