
readsToTarget(reads, target, ...)
"readsToTarget"(reads, target, ..., reverse.complement = TRUE, chimeras = NULL, collapse.pairs = FALSE, use.consensus = FALSE, store.chimeras = FALSE, verbose = TRUE, name = NULL)
"readsToTarget"(reads, target, ..., reference = reference, names = NULL, reverse.complement = TRUE, target.loc = 17, chimeras = NULL, collapse.pairs = FALSE, use.consensus = FALSE, verbose = TRUE)
"readsToTarget"(reads, target, ..., reference, reverse.complement = TRUE, target.loc = 17, exclude.ranges = GRanges(), exclude.names = NA, chimeras = c("count", "exclude", "ignore", "merge"), collapse.pairs = FALSE, use.consensus = FALSE, names = NULL, verbose = TRUE)
readsToTargets(reads, targets, ...)
"readsToTargets"(reads, targets, ..., references, primer.ranges = NULL, target.loc = 17, reverse.complement = TRUE, collapse.pairs = FALSE, use.consensus = FALSE, ignore.strand = TRUE, names = NULL, bpparam = BiocParallel::SerialParam(), chimera.to.target = 5, verbose = TRUE)
"readsToTargets"(reads, targets, ..., references, primer.ranges = NULL, target.loc = 17, reverse.complement = TRUE, collapse.pairs = FALSE, use.consensus = FALSE, ignore.strand = TRUE, names = NULL, bpparam = BiocParallel::SerialParam(), chimera.to.target = 5, verbose = TRUE)
findOverlaps
)bpparam
)# Load the metadata table
md_fname <- system.file("extdata", "gol_F1_metadata_small.txt", package = "CrispRVariants")
md <- read.table(md_fname, sep = "\t", stringsAsFactors = FALSE)
# Get bam filenames and their full paths
bam_fnames <- sapply(md$bam.filename, function(fn){
system.file("extdata", fn, package = "CrispRVariants")})
reference <- Biostrings::DNAString("GGTCTCTCGCAGGATGTTGCTGG")
gd <- GenomicRanges::GRanges("18", IRanges::IRanges(4647377, 4647399),
strand = "+")
crispr_set <- readsToTarget(bam_fnames, target = gd, reference = reference,
names = md$experiment.name, target.loc = 17)
Run the code above in your browser using DataLab