Update 8 files

- /Cytoscape/.gitkeep
- /project.PNG
- /Cytoscape/cytoscape.xlsx
- /Cytoscape/extract_mrna_names_from_mirna.R
- /Cytoscape/miRNAmRNA.xlsx
- /Cytoscape/new.png
- /Cytoscape/multimir_results.xlsx
- /project_workflow.PNG

Cytoscape/extract_mrna_names_from_mirna.R

+library(readxl)
+library(multiMiR)
+library(writexl)
+
+new_list <- read_excel("C:/Users/Emre/Desktop/miRNAmRNA.xlsx", header = TRUE)
+
+multimir_results <- get_multimir(org     = 'hsa',
+                                 mirna   = mirnames,
+                                 table   = 'validated',
+                                 summary = TRUE)
+head(multimir_results@data)
+
+targets <- multimir_results@data
+excel_file <- "C:/Users/Emre/Desktop/Bioinformatik/Bioinformatik 2.Semester Master/Data Science in the Life Sciences/Project/multimir_results.xlsx"
+write_xlsx(targets, path = excel_file )
+
+
+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)
+
+output_file <- ("C:/Users/Emre/Desktop/cytoscape.xlsx")
+write_xlsx(filtered_df, output_file)