printTop10Drugs: Print Top 10 Drugs

In epos: Epilepsy Ontologies' Similarities

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)

epos documentation built on Feb. 20, 2021, 9:09 a.m.