R/denote_coreTA.R

In ruy204/FiTnEss: FiTnEss: Finding TnSeq Essential Genes

Defines functions denote_coreTA

Documented in denote_coreTA

#4. denotate core TAs

denote_coreTA <- function(tally, bp = 50) {
  tally$coreTA <- ((tally$TA.gene.pos > bp) &
                     (tally$TA.gene.pos < (tally$gene.size.CIA-bp + 1)))
  return(tally)
}