#get ensembl gene ids and info
library(biomaRt)

#setwd
setwd("C:/Users/thood/Documents/R/TCGA/DESeq Results Recurrent vs Normal")

#read in ensembl ids
ens <- read.csv("genenamesPadj001_recurrent_fusions_nodecimal.csv", header=TRUE)
value <- ens$gene

ensembl = useEnsembl(biomart="ensembl", dataset="hsapiens_gene_ensembl", version=79)

ids<-getBM(filters="ensembl_gene_id", attributes = c("ensembl_gene_id","entrezgene", "description", "hgnc_symbol"),values=value, mart=ensembl)

write.csv(ids, "genenamesPadj001_recurrent_fusions_vs_normal_gene_names.csv")