printTop10Drugs {epos}

Print Top 10 Drugs

Description

Print Top 10 Drugs

Usage

printTop10Drugs(neuroepso, neuroesso, neuroepi, neuroepisem, neurofenics)

Arguments

neuroepso

Ranked list of drug names co-occurring with EpSO

neuroesso

Ranked list of drug names co-occurring with ESSO

neuroepi

Ranked list of drug names co-occurring with EPILONT

neuroepisem

Ranked list of drug names co-occurring with EPISEM

neurofenics

Ranked list of drug names co-occurring with FENICS

Value

data frame with top 10 drugs for each ontology

Examples

utils::data(rawDrugNamesCoOcEpSO, package="epos")
utils::data(rawDrugNamesCoOcESSO, package="epos")
utils::data(rawDrugNamesCoOcEPILONT, package="epos")
utils::data(rawDrugNamesCoOcEPISEM, package="epos")
utils::data(rawDrugNamesCoOcFENICS, package="epos")
atchashda <-
readAtcMapIntoHashMapDrugNamesAtcCodes(
  system.file("extdata", "db-atc.map", package = "epos"), "\t")
atchashaa <-
  readAtcMapIntoHashMapAtcCodesAtcNames(
    system.file("extdata", "db-atc.map", package = "epos"), "\t")
atchashsec <-
  readSecondLevelATC(
    system.file("extdata", "atc-secondlevel.map", package = "epos"), "\t")
epso <- rawDrugNamesCoOcEpSO
neuroepso <- filterNeuroDrugs(epso, atchashda)
esso <- rawDrugNamesCoOcESSO
neuroesso   <- filterNeuroDrugs(esso, atchashda)
epi <- rawDrugNamesCoOcEPILONT
neuroepi    <- filterNeuroDrugs(epi, atchashda)
episem <- rawDrugNamesCoOcEPISEM
neuroepisem <- filterNeuroDrugs(episem, atchashda)
fenics <- rawDrugNamesCoOcFENICS
neurofenics <- filterNeuroDrugs(fenics, atchashda)
top10table <- printTop10Drugs(neuroepso, neuroesso, neuroepi, neuroepisem, neurofenics)
## Not run: 
  print(xtable::xtable(top10table, type = "latex"), 
    file = "top10table.tex")

## End(Not run)