## Find case-specific variants in a case/control study
bams <- LungCancerLines::LungCancerBamFiles()
tally.param <- TallyVariantsParam(gmapR::TP53Genome(),
high_base_quality = 23L,
which = gmapR::TP53Which())
case <- callVariants(bams$H1993, tally.param)
control <- callVariants(bams$H2073, tally.param)
control.cov <- coverage(bams$H2073)
filters <-
FilterRules(list(caseOnly = SetdiffVariantsFilter(control),
minTotalDepth = MinTotalDepthFilter(min.depth=10L),
maxControlFreq = MaxControlFreqFilter(control,
control.cov, max.control.freq=0.03),
depthFET = DepthFETFilter(control, control.cov,
p.value.cutoff=0.05)
))
specific <- subsetByFilter(case, filters)
Run the code above in your browser using DataLab