R/remove_3rd_codon.R

In genomewalker/oligo4fun: Oligtyping diagnostics for functional genes

#' Create a sequence alignment with only the 1st and 2nd codon
#' @param aln a sequence alignment 
#' @export
remove_3rd_codon <- function(aln, ...){
  is_inFrame(aln)
  aln_1st_2nd<-aln[, -seq(0, ncol(aln), by=3)]
}