Commit 914d173d authored by Sayed Rzgar Hosseini's avatar Sayed Rzgar Hosseini
Browse files

Update Script08.R

parent cab2f7d3
......@@ -54,7 +54,7 @@ DC_UP<-as.character(ANOVA_COLO$DRUG_NAME.x[INDX_C_UP]) # Drug names of the expre
DC_MUT<-as.character(ANOVA_COLO$DRUG_NAME.x[INDX_C_MUT]) # Drug names of the Mutation based biomarkers
#######################################################################################################################################################
# Criteria 1: An anchor gene is a biomarker of resistance to a drug that targets the candidate gene
# Criterion 1: An anchor gene is a biomarker of resistance to a drug that targets the candidate gene
# Expression based [Breast]
New_Candidates_Breast<-c()
intersect(anchor_breast,B_up) # only: "PARP1"
......@@ -104,7 +104,7 @@ for (i in 1:length(setDC)){
#######################################################################################################################################################
#######################################################################################################################################################
# Criteria2: One of the anchor genes must be the target of a drug that targets the candidate gene
# Criterion2: One of the anchor genes must be the target of a drug that targets the candidate gene
# Drug names of the expression based biomarkers [Breast]
for (i in 1:length(DB_UP)){
sel<-which(as.character(ANOVA_BREAST$DRUG_NAME.x)==DB_UP[i]) #Retrieve the rows with the given drug name
......
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