# NOT RUN {
data("mutations", package = "ctDNAtools")
data("targets", package = "ctDNAtools")
bamT1 <- system.file("extdata", "T1.bam", package = "ctDNAtools")
## basic usage
fs <- get_fragment_size(bam = bamT1)
## More options
fs1 <- get_fragment_size(
bam = bamT1, isProperPair = TRUE, min_size = 70,
max_size = 200, ignore_trimmed = FALSE, different_strands = FALSE,
simple_cigar = TRUE
)
## with mutations input
fs2 <- get_fragment_size(bam = bamT1, mutations = mutations)
## using targets
fs3 <- get_fragment_size(bam = bamT1, targets = targets)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab