## Load data
library('derfinder')
## Annotate the results
suppressMessages(library('bumphunter'))
annotation <- annotateNearest(genomeRegions$regions, 'hg19')
## Make the plot
suppressMessages(library('TxDb.Hsapiens.UCSC.hg19.knownGene'))
plotCluster(idx=1, regions=genomeRegions$regions, annotation=annotation,
coverageInfo=genomeDataRaw$coverage, groupInfo=genomeInfo$pop,
txdb=TxDb.Hsapiens.UCSC.hg19.knownGene)
## Resize the plot window and the labels will look good.
## Not run:
# ## For a custom plot, check the ggbio and ggplot2 packages.
# ## Also feel free to look at the code for this function:
# plotCluster
#
# ## End(Not run)
Run the code above in your browser using DataLab