if (interactive())
{
data(myPeakList)
data(TSS.human.NCBI36)
library(matrixStats)
peaks <- system.file("extdata", "guide-seq-peaks.txt",
package = "ChIPpeakAnno")
merged.bed <- mergePlusMinusPeaks(peaks.file = peaks,
columns=c("name", "chromosome",
"start", "end", "strand",
"count", "count"),
sep = "\t", header = TRUE,
distance.threshold = 100,
plus.strand.start.gt.minus.strand.end = TRUE,
output.bedfile = "T2test100bp.bed")
}
Run the code above in your browser using DataLab