bams <- LungCancerLines::LungCancerBamFiles()
tally.param <- TallyVariantsParam(gmapR::TP53Genome(),
high_base_quality = 23L,
which = gmapR::TP53Which())
case <- callVariants(bams$H1993, tally.param)
control <- tallyVariants(bams$H2073, tally.param)
control.cov <- coverage(bams$H2073)
annotateWithControlDepth(case, control, control.cov)
Run the code above in your browser using DataLab