query <- TCGAquery(tumor = "lgg")
## Not run:
# TFs <- EAGenes[EAGenes$Family =="transcription regulator",]
# TFs_inDEGs <- intersect(TFs$Gene, dataDEGsFiltLevel$mRNA )
# dataDEGsFiltLevelTFs <- dataDEGsFiltLevel[TFs_inDEGs,]
# dataDEGsFiltLevelTFs <- dataDEGsFiltLevelTFs[order(dataDEGsFiltLevelTFs$Delta,decreasing = TRUE),]
# # Find Pubmed of TF studied related to cancer
# tabDEGsTFPubmed <- TCGAquery_Investigate("breast", dataDEGsFiltLevelTFs, topgenes = 1)
# ## End(Not run)
Run the code above in your browser using DataLab