# 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)
FP <- extrFP(drug_target = drug_target,
disease_biomarker = drugSample$disease_biomarker,
method = "enrich")
# }
Run the code above in your browser using DataLab