if(interactive()){
path <- system.file("extdata", package="ChIPpeakAnno")
peaksA <- toGRanges(file.path(path, "peaks.narrowPeak"),
format="narrowPeak")
peaksB <- toGRanges(file.path(path, "MACS2_peaks.xls"), format="MACS2")
library(TxDb.Hsapiens.UCSC.hg19.knownGene)
ppp <- preparePool(TxDb.Hsapiens.UCSC.hg19.knownGene,
peaksA, bindingType="TSS",
featureType="transcript")
}
Run the code above in your browser using DataLab