library("biomaRt")
human = useMart("ensembl", dataset ="hsapiens_gene_ensembl")
mouse = useMart("ensembl", dataset ="mmusculus_gene_ensembl")
gene<- read.table("../DEgenelist.txt")
gene<-gene[,1]
##從 gene name 轉(zhuǎn)換成 refseq_mrna,? 輸入的是gene name冲茸， 則? filters ="external_gene_name" ##
aa<-getBM(attributes = c("external_gene_name","refseq_mrna"),filters = "external_gene_name",values = gene,mart = mouse)
head(aa)
