bamFile <- system.file("exdata", "rep1.bam", package="csaw")
extractReads(bamFile, GRanges("chrA", IRanges(100, 500)))
extractReads(bamFile, GRanges("chrA", IRanges(100, 500)),
param=readParam(dedup=TRUE))
extractReads(bamFile, GRanges("chrB", IRanges(100, 500)))
bamFile <- system.file("exdata", "pet.bam", package="csaw")
extractReads(bamFile, GRanges("chrB", IRanges(100, 500)),
param=readParam(pe="both"))
extractReads(bamFile, GRanges("chrB", IRanges(100, 500)),
param=readParam(pe="first"))
# Extracting as reads.
extractReads(bamFile, GRanges("chrB", IRanges(100, 500)),
param=readParam(pe="both"), as.reads=TRUE)
# Dealing with the extension length.
bamFile <- system.file("exdata", "rep1.bam", package="csaw")
my.reg <- GRanges("chrA", IRanges(10, 200))
extractReads(bamFile, my.reg)
extractReads(bamFile, my.reg, ext=100)
Run the code above in your browser using DataLab