# NOT RUN {
data("drugSample")
drug_herb <- PrepareData(drugSample$drug_herb, col1 = "drug", col2 = "herb")
herb_target <- PrepareData(drugSample$herb_target,
col1 = "herb", col2 = "target",
format = "basket", sep = ", ")
drug_target <- CreateBasicData(drug_herb, herb_target)
res <- score_network(Tar = drug_target, DNet = drugSample$disease_network)
res <- get_result(res)
# }
Run the code above in your browser using DataLab