powered by
readPooledBamGaps(infiles,idxInfiles=paste(infiles,".bai",sep=""))
bam<-system.file("extdata","accepted_hits.bam",package="rbamtools") rpb<-readPooledBamGaps(bam) rpdf<-readPooledBamGapDf(bam) hist(rpdf$gqs)
Run the code above in your browser using DataLab