R/Translate_basesTo_AminoAcids.R

In rforbiodatascience21/Group8_Shiny: What the Shiny App Does (Title Case)

# R/mk_codons.R
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)
}