diff --git a/common/cp_enrichment.R b/common/cp_enrichment.R index 3e7661f451350844b292a1f7dcc8ee08678765f0..d5a7fa8c8a6f7d9f9b736eebcc4493a17637b331 100755 --- a/common/cp_enrichment.R +++ b/common/cp_enrichment.R @@ -128,8 +128,11 @@ annoDb <- guess_anno_db(geneLists$ensembl_gene_id) # e.g. "org.Hs.eg.db" ## convert to entrez gene ids -glMappedRaw <- clusterProfiler::bitr(geneLists$ensembl_gene_id, fromType="ENSEMBL", toType="ENTREZID", annoDb=annoDb) %>% - set_names("ensembl_gene_id", "entrez_gene_id") %>% right_join(geneLists) +#glMappedRaw <- clusterProfiler::bitr(geneLists$ensembl_gene_id, fromType="ENSEMBL", toType="ENTREZID", annoDb=annoDb) %>% +# set_names("ensembl_gene_id", "entrez_gene_id") %>% right_join(geneLists) + +glMappedRaw <- bitr(geneLists$ensembl_gene_id, fromType="ENSEMBL", toType="ENTREZID", annoDb=annoDb) %>% + set_names("ensembl_gene_id", "entrez_gene_id") %>% right_join(geneLists) #' Check how many failed to map