annoPeaks (peaks, annoData,  bindingType=c("nearestBiDirectionalPromoters", "startSite", "endSite", "fullRange"),  bindingRegion=c(-5000, 5000),  ignore.peak.strand=TRUE, ...)
annotatePeakInBatch
    library(EnsDb.Hsapiens.v75)
    data("myPeakList")
    annoGR <- toGRanges(EnsDb.Hsapiens.v75)
    seqlevelsStyle(myPeakList) <- seqlevelsStyle(annoGR)
    annoPeaks(myPeakList, annoGR)
Run the code above in your browser using DataLab