# NOT RUN {
data("drugSample")
FP <- extrFP(disease_biomarker = drugSample$disease_biomarker,
drug_target = drugSample$herb_target,
geneset = "ImmGenTop150")
res <- score_fp(FP, n=100)
plot_density(res, drug="BAN_XIA_XIE_XIN_TANG")
# }
Run the code above in your browser using DataLab