dev.off()
data("MMD")
plotPeak(MMD,Peak.id='6',plot.input=FALSE)
# add annotation (Overlapping genes)
data("mm9-Genes")
GR <- list(UCSCKnownGenes = GR)
plotPeak(MMD, Peak.id='6', plot.input = FALSE, anno=GR)
# add TF binding sites
library('MotifDb')
motifs <- query(query(MotifDb, 'Mmusculus'), 'E2F')
plotPeak(MMD, Peak.id='6', plot.input = FALSE,
Motifs=motifs,Motifcutoff="80%")
# split peaks by contrast
plotPeak(MMD, Peak.id='6', plot.input = FALSE, whichContrast=1,
Motifs=motifs,Motifcutoff="80%",anno=GR)
Run the code above in your browser using DataLab