p53 <- gmapR:::exonsOnTP53Genome("TP53")
bams <- LungCancerLines::LungCancerBamFiles()
tally.param <- TallyVariantsParam(gmapR::TP53Genome(),
high_base_quality = 23L,
which = range(p53))
# post-filters are not enabled by default during calling
called.variants <- callVariants(bams[[1]], tally.param)
# but can be applied at a later time...
postFilterVariants(called.variants, max.nbor.count = 0.15)
# or enable during calling
called.variants <- callVariants(bams[[1]], tally.param,
post.filters = VariantPostFilters())
Run the code above in your browser using DataLab