library(ggbio)
library(GenomicRanges)
library(BSgenome.Hsapiens.UCSC.hg19)
region = GRanges("chr17", IRanges(7572100, width = 1))
control_bam = system.file("extdata", "platinum", "control.bam", package =
"Rariant", mustWork = TRUE)
mix_bam = system.file("extdata", "platinum", "mix.bam", package = "Rariant",
mustWork = TRUE)
bam_files = c(control_bam, mix_bam)
region = GRanges("chr17", IRanges(7572050, width = 100))
control_bam = system.file("extdata", "platinum", "control.bam", package =
"Rariant", mustWork = TRUE)
test1_bam = system.file("extdata", "platinum", "test.bam", package =
"Rariant", mustWork = TRUE)
test2_bam = system.file("extdata", "platinum", "test2.bam", package =
"Rariant", mustWork = TRUE)
mix_bam = system.file("extdata", "platinum", "mix.bam", package =
"Rariant", mustWork = TRUE)
bam_files = c(control_bam, test1_bam, test2_bam, mix_bam)
library(BSgenome.Hsapiens.UCSC.hg19)
ref = BSgenome.Hsapiens.UCSC.hg19
p = tracks(lapply(bam_files, tallyPlot, region, ref, minQual = 25))
print(p)Run the code above in your browser using DataLab