bam_fname <- system.file("extdata", "gol_F1_clutch_2_embryo_4_s.bam",
package = "CrispRVariants")
bam <- GenomicAlignments::readGAlignments(bam_fname, use.names = TRUE)
target <- GenomicRanges::GRanges("18", IRanges::IRanges(4647377, 4647399),
strand = "+")
narrowAlignments(bam, target, reverse.complement = FALSE)
Run the code above in your browser using DataLab