From 82aaf126fe607c834c0fa29c25836a697075b377 Mon Sep 17 00:00:00 2001
From: yunusek77 <yunusek77@mi.fu-berlin.de>
Date: Sun, 9 Jul 2023 09:45:25 +0000
Subject: [PATCH] Upload New File
---
.../GO_enrichment/biomart_for_annotation.R | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
create mode 100644 Data_Annotation/GO_enrichment/biomart_for_annotation.R
diff --git a/Data_Annotation/GO_enrichment/biomart_for_annotation.R b/Data_Annotation/GO_enrichment/biomart_for_annotation.R
new file mode 100644
index 0000000..2ff36fd
--- /dev/null
+++ b/Data_Annotation/GO_enrichment/biomart_for_annotation.R
@@ -0,0 +1,16 @@
+library(biomaRt)
+ensembl <- useMart("ensembl", dataset = "hsapiens_gene_ensembl")
+gene_list <- c('RUVBL1', 'TRIP13', 'COL1A1', 'NDRG2', 'MCM2', 'DUOX1', 'FSCN1',
+ 'TMPRSS11E', 'ANO1', 'IGFBP3', 'TIAM1', 'GPX3', 'HOPX', 'CFD',
+ 'PPP1R3C', 'TMPRSS11D', 'COL5A2', 'IL1RN', 'LYPD3', 'SLURP1', 'MYH10',
+ 'SERPINB2', 'TSPAN6', 'SIM2', 'ALOX12', 'TYMP', 'SPRR3', 'MMP10',
+ 'ERCC3', 'EMP1', 'FLG', 'GABRP', 'GALE', 'GALNT1', 'HSPB8', 'HSPBAP1',
+ 'HSPD1', 'ENTPD6', 'ACPP', 'AIM2', 'ALDH9A1', 'AQP3', 'ATP6V1D',
+ 'ZNF185', 'CES2', 'CH25H', 'CLIC3', 'CYP4B1', 'CRISP3', 'CRNN')
+
+ensembl_ids <- getBM(attributes = c("ensembl_gene_id", "external_gene_name"),
+ filters = "external_gene_name",
+ values = gene_list,
+ mart = ensembl)
+
+print(ensembl_ids)
\ No newline at end of file
--
GitLab