library(Rsamtools)
extdata.dir <- system.file("extdata", package="RIPSeeker")
ex1_file <- list.files(extdata.dir, "ex1.bam", recursive=TRUE, full.names=TRUE)
galp <- readGAlignmentPairs(ex1_file, use.names=TRUE)
galp
gal <- galp2gal(galp)
gal
Run the code above in your browser using DataLab