1d:T71e,# Creates the plot for all jaccard coefficients amongst the three epilepsy ontologies ```r createTanimotoBaseline(neuroepso, neuroesso, neuroepi, dneuromaxk) ``` ## Arguments - `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 ## Returns jaccardepilepsyplot the ggplot object ## Examples ```r 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) ```1e:T49a,M7.49933 0.25C3.49635 0.25 0.25 3.49593 0.25 7.50024C0.25 10.703 2.32715 13.4206 5.2081 14.3797C5.57084 14.446 5.70302 14.2222 5.70302 14.0299C5.70302 13.8576 5.69679 13.4019 5.69323 12.797C3.67661 13.235 3.251

createTanimotoBaseline function