Description Usage Arguments Value Examples
Sort table by scoring for each row
1 | sortTableByRefMatches(dntk)
|
dntk |
the table returned from writeNeuroTable |
the sorted table
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | 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)
mx <- max(
c(length(neuroepso), length(neuroesso), length(neuroepi),
length(neuroepisem), length(neurofenics)))
dneuro <-
data.frame(EpSO = c(neuroepso, rep("", (mx-length(neuroepso)))),
ESSO = c(neuroesso, rep("", (mx-length(neuroesso)))),
EPILONT = c(neuroepi, rep("", (mx-length(neuroepi)))),
EPISEM = c(neuroepisem, rep("", (mx-length(neuroepisem)))),
FENICS = c(neurofenics, rep("", (mx-length(neurofenics)))))
dneuromaxk <- TopKLists::calculate.maxK(dneuro, L=5, d=5, v=5)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.