bamFiles <- system.file("exdata", c("rep1.bam", "rep2.bam"), package="csaw")
data <- windowCounts(bamFiles, filter=1)
getWidths(data)
data <- windowCounts(bamFiles, ext=c(50, 100), filter=1)
getWidths(data)
data <- windowCounts(bamFiles, ext=DataFrame(c(50, 100), NA), filter=1)
getWidths(data)
# Using the automatically computed 'rlen'.
data <- windowCounts(bamFiles, ext=c(NA, 100), filter=1)
getWidths(data)
data$rlen <- 200 # Manually defining it, if required.
getWidths(data)
# Paired-end data also takes the fragment length from 'ext'.
bamFile <- system.file("exdata", "pet.bam", package="csaw")
data <- windowCounts(bamFile, param=readParam(pe="both"), filter=1)
getWidths(data)
data$ext <- 200 # Again, manual definition is accepted.
getWidths(data)
Run the code above in your browser using DataLab