R/mk_codons.R

In rforbiodatascience21/2021_group_04_rpackage: translating nucleic acid sequences in to the amino acid sequence

#' R/mk_codons.R
#' @title mk_codons
#' @description seperated sequence in to codons
#' @usage mk_codons(dna = ..., s = 1)
mk_codons <- function(dna, s = 1){
  l = nchar(dna)
  codons <- substring(dna,
                      first = seq(from = s, to = l-3+1, by = 3),
                      last = seq(from = 3+s-1, to = l, by = 3))
  return(codons)
}