R/mk_codons.R

In rforbiodatascience21/2021_group_09_rpackage: Small DNA and RNA modifications

#' Mk codons'
#' @param dna A string of DNA
#' @param s start pos
#' @export
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)
}