# NOT RUN {
bam<-system.file("extdata", "accepted_hits.bam", package="rbamtools")
bs <- sampleBamFiles(bam)
sampleLabels(bs) <- "s1"
sampleGroups(bs) <- "g1"
checkBamFiles(bs)
nAligns(bs) <- bamCountAll(bs)
bs
# }
Run the code above in your browser using DataLab