utils::data(rawDrugNamesCoOcEpSO, package="epos")
atchashda <-
readAtcMapIntoHashMapDrugNamesAtcCodes(
system.file("extdata", "db-atc.map", package = "epos"), "\t")
tepso <- genDictListFromRawFreq(rawDrugNamesCoOcEpSO)
filterApprovedDrugs(tepso, atchashda)
Run the code above in your browser using DataLab