if(interactive()){
data(annotatedPeak)
library(BSgenome.Hsapiens.UCSC.hg19)
seq <- getAllPeakSequence(annotatedPeak[1:100],
upstream=20,
downstream=20,
genome=Hsapiens)
oligoSummary(seq)
}
Run the code above in your browser using DataLab