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)]
网友评论