# readsToTarget with signature("GAlignments", "GRanges") returns a
# CrisprRun object
bam_fname <- system.file("extdata", "gol_F1_clutch_1_embryo_1_s.bam",
package = "CrispRVariants")
param <- Rsamtools::ScanBamParam(what = c("seq", "flag"))
alns <- GenomicAlignments::readGAlignments(bam_fname, param = param,
use.names = TRUE)
reference <- Biostrings::DNAString("GGTCTCTCGCAGGATGTTGCTGG")
gd <- GenomicRanges::GRanges("18", IRanges::IRanges(4647377, 4647399), strand = "+")
crispr_run <- readsToTarget(alns, target = gd, reference = reference,
name = "Sample name", target.loc = 17)
# Alternatively, CrisprRun objects can be accessed from a CrisprSet object
# e.g. crispr_set$crispr_runs[[1]]
Run the code above in your browser using DataLab