data(RTCGASample)
require("Homo.sapiens")
locations = genes(Homo.sapiens,columns="SYMBOL")
locations = as.data.frame(locations)
locations <- locations[,c(6,1,5,2:3)]
locations <- locations[!is.na(locations[,1]),]
rownames(locations) <- locations[,1]
t1=getDiffExpressedGenes(RTCGASample)
getReport(dataObject=RTCGASample,DGEResult1=t1[[1]],geneLocations=locations)
Run the code above in your browser using DataLab