epos (version 1.1)

printTop10Drugs: Print Top 10 Drugs

Description

Print Top 10 Drugs

Usage

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

Value

data frame with top 10 drugs for each ontology

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

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)
if (FALSE) {
  print(xtable::xtable(top10table, type = "latex"), 
    file = "top10table.tex")
}