bam_fname <- system.file("extdata", "gol_F1_clutch_2_embryo_4_s.bam",
package = "CrispRVariants")
bam <- GenomicAlignments::readGAlignments(bam_fname, use.names = TRUE)
countDeletions(bam)
countInsertions(bam)
countIndels(bam)
indelPercent(bam)
Run the code above in your browser using DataLab