# NOT RUN {
bam<-system.file("extdata","accepted_hits.bam",package="rbamtools")
reader<-bamReader(bam)
bamSort(reader)
## - - - - - - - - - - - - - - - - - ##
## sampleBamFiles
## - - - - - - - - - - - - - - - - - ##
bs <- sampleBamFiles(bam)
# }
Run the code above in your browser using DataLab