inst/unitTests/test_testPairedEndBam.R

fl <- system.file("extdata", "ex1.bam", package="Rsamtools")

test_testPairedEndBam <- function() {
    checkTrue(testPairedEndBam(BamFile(fl)))
    checkTrue(testPairedEndBam(fl))
}
Bioconductor/Rsamtools documentation built on May 2, 2024, 11:20 p.m.