# create a small sample STARRseqData object
starrseqFileName <- system.file("extdata", "smallSTARR.bam",
package="BasicSTARRseq")
inputFileName <- system.file("extdata", "smallInput.bam",
package="BasicSTARRseq")
data <- STARRseqData(sample=starrseqFileName, control=inputFileName,
pairedEnd=TRUE)
# call peaks with default parameters
peaks = getPeaks(data)
# call peaks with no deduplication and no restriction concerning p-value
peaks = getPeaks(data, maxPval = 1, deduplicate = FALSE)
# call peaks with other binomial model and width 700
peaks = getPeaks(data, peakWidth = 700, model = 2)
# call peaks assuming less regions as potential peaks
peaks = getPeaks(data, minQuantile = 0.99)
Run the code above in your browser using DataLab