if (!requireNamespace("BiocManager", quietly = TRUE))

install.packages("BiocManager")

BiocManager::install("org.Hs.eg.db")

library(org.Hs.eg.db)

rown <- mapIds(org.Hs.eg.db,rownames(exprs),keytype="ENSEMBL",column="SYMBOL",multiVals="first")
exprs<- exprs[!is.na(rown),]
rownames(exprs) <- rown[!is.na(rown)]