createTanimotoBaseline | R Documentation |
Creates the plot for all jaccard coefficients amongst the three epilepsy ontologies
createTanimotoBaseline(neuroepso, neuroesso, neuroepi, dneuromaxk)
neuroepso |
list of neuro drug names co-occurring with epso |
neuroesso |
list of neuro drug names co-occurring with esso |
neuroepi |
list of neuro drug names co-occurring with epi |
dneuromaxk |
object returned from TopKLists::calculate.maxk |
jaccardepilepsyplot the ggplot object
utils::data(rawDrugNamesCoOcEpSO, package="epos")
utils::data(rawDrugNamesCoOcESSO, package="epos")
utils::data(rawDrugNamesCoOcEPILONT, package="epos")
utils::data(rawDrugNamesCoOcEPISEM, 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")
tepso <- rawDrugNamesCoOcEpSO
tesso <- rawDrugNamesCoOcESSO
tepi <- rawDrugNamesCoOcEPILONT
tepisem <- rawDrugNamesCoOcEPISEM
tfenics <- rawDrugNamesCoOcFENICS
neuroepso <- filterNeuroDrugs(tepso, atchashda)
neuroesso <- filterNeuroDrugs(tesso, atchashda)
neuroepi <- filterNeuroDrugs(tepi, atchashda)
neuroepisem <- filterNeuroDrugs(tepisem, atchashda)
neurofenics <- filterNeuroDrugs(tfenics, atchashda)
dneuro <-
data.frame(EpSO = neuroepso[1:210],
ESSO = neuroesso[1:210],
EPILONT = neuroepi[1:210],
EPISEM = neuroepisem[1:210],
FENICS = neurofenics[1:210])
dneuromaxk <- TopKLists::calculate.maxK(dneuro, 5, 5, 5)
tanimotobaseline <- createTanimotoBaseline(neuroepso, neuroesso, neuroepi, dneuromaxk)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.