R/ATGC.R

In rforbiodatascience22/group_3_package: Central Dogma Package - DNA To Amino Acid Sequence (One Line, Title Case)

#' DNA sequence
#'
#'Generation of a DNA sequence
#'
#' @param DNAletters Number of letters in output sequence
#'
#' @export
ATGC <- function(DNAletters){
  Sequence <- sample(c("A", "T", "G", "C"), size = DNAletters, replace = TRUE)
  output <- paste0(Sequence, collapse = "")
  return(output)
}