data("MTBLS422")
pathwayA <- "Galactose metabolism"
pathwayB <- "Vitamin digestion and absorption"
overlap_coefficient(pathwayA, pathwayB, pathways)
if (requireNamespace("KEGGREST", quietly = TRUE)) {
pathwayA <- "Galactose metabolism"
pathwayB <- "Vitamin digestion and absorption"
# \donttest{
overlap_coefficient(pathwayA, pathwayB, organism = "mmu")
# }
}
pathwayA <- "mmu00052"
pathwayB <- "mmu00562"
overlap_coefficient(pathwayA, pathwayB, pathways)
pathwayA <- c("C00029", "C00116", "C00137", "C00794", "C00984", "C01697")
pathwayB <- c("C00191", "C00092", "C00137")
overlap_coefficient(pathwayA, pathwayB)
Run the code above in your browser using DataLab