a<-readCufflinks(system.file("extdata", package="cummeRbund")) #Create CuffSet object from sample data
genes<-genes(a) #Create CuffData object for all genes
d<-dispersionPlot(genes) #Create plot object
d #render plot object
Run the code above in your browser using DataLab