library(readxl)
library(multiMiR)
library(writexl)

new_list <- read_excel("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 <- "multimir_results.xlsx"
write_xlsx(targets, path = excel_file )