work/hist.R

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
twesleyb/Uezu2016 documentation built on Jan. 28, 2021, 3:56 p.m.