# NOT RUN {
data(drug_gene_interactions)
drug_target_interaction <- make_drug_target(target_molecules='protein',
interaction_table=drug_gene_interactions, match_on='gene_name')
data(drug_targets_example)
data(differential_score_graph_example)
drug_response_score <- get_drug_response_score(differential_score_graph_example,
drug_targets_example[["targets"]], drug_target_interaction$interaction_table)
# }
Run the code above in your browser using DataLab