From eac3b335bde520e1a3989eeac5249fd0bbdfb11c Mon Sep 17 00:00:00 2001
From: yunusek77 <yunusek77@mi.fu-berlin.de>
Date: Sun, 9 Jul 2023 09:39:49 +0000
Subject: [PATCH] Upload New File

---
 Cytoscape/extract_mrna_names_from_mirna.R | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 Cytoscape/extract_mrna_names_from_mirna.R

diff --git a/Cytoscape/extract_mrna_names_from_mirna.R b/Cytoscape/extract_mrna_names_from_mirna.R
new file mode 100644
index 0000000..879e397
--- /dev/null
+++ b/Cytoscape/extract_mrna_names_from_mirna.R
@@ -0,0 +1,14 @@
+library(readxl)
+
+df <- read_excel("C:/Users/Emre/Desktop/multimir_results_cyto.xlsx")
+mrna <- read_excel("C:/Users/Emre/Desktop/mRNAs.xlsx")
+
+mrna_genes <-  mrna$external_gene_name
+
+filtered_df <- df[df$target_symbol %in% mrna_genes | duplicated(df$target_symbol) %in% mrna_genes, ]
+
+print(filtered_df)
+
+library(writexl)
+output_file <- ("C:/Users/Emre/Desktop/cytoscape.xlsx")
+write_xlsx(filtered_df, output_file)
-- 
GitLab