# 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)
# }
Run the code above in your browser using DataLab