if(interactive()){
library(EnsDb.Hsapiens.v75)
data("myPeakList")
annoGR <- annoGR(EnsDb.Hsapiens.v75)
seqlevelsStyle(myPeakList) <- seqlevelsStyle(annoGR)
bdp(myPeakList, annoGR)
}
Run the code above in your browser using DataLab