toy_data <- data.frame(
gene_symbol = c("TP53", "EGFR", "KDR", "ATM"),
driverness_prob = c(0.94, 0.92, 0.84, 0.72)
)
toy_interactions <- DGIdb_interactions_df[1:100, ]
res <- score_drugs_RWR_based(
driveR_res = toy_data,
drug_interactions_df = toy_interactions,
W_mat = toy_W_mat, verbose = FALSE
)
Run the code above in your browser using DataLab