library("biomaRt")

human = useMart("ensembl", dataset = "hsapiens_gene_ensembl")

mouse = useMart("ensembl", dataset = "mmusculus_gene_ensembl")

gene<- read.table("geneinrepeat1000kb.txt")

? gene<-gene[,1]

? aa<-getBM(attributes = c("refseq_mrna","external_gene_name"),filters = "refseq_mrna",values = gene,mart = mouse)

? write.table(aa,file="geneinreat1000kb-genename.txt")