R/randomDNASequence.R

In rforbiodatascience22/group_11_package: The package replicates the central dogma of molecular biology

#' Generate random DNA sequence
#'
#' @param length Length of the sequence
#'
#' @return Random DNA sequence (string)
#' @export
#'
#' @examples
randomDNASequence <- function(length){
  seqVector <- sample(c("A", "T", "G", "C"), size = length, replace = TRUE)
  seqString <- paste0(seqVector, collapse = "")
  return(seqString)
}