data(ipsd_gene_map)
data(surprise_partition)
library(geneLists)
data(sfariAnimal)
data(uniprotSubcell)
m = 4
path="Endoplasmic reticulum"
gene_list <- uniprotSubcell
module = names(partition)[partition==m]
entrez = mapIDs(module,"uniprot","entrez",gene_map)
symbols <- mapIDs(entrez[entrez %in% gene_list[[path]]],"entrez","symbol",gene_map)
symbols
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.