R/random_dna.R

In rforbiodatascience21/2021_group_3_rpackage: Tools for sequence analysis | Still under development

#' Random DNA generator
#' 
#' @return random DNA
#' @param l length of DNA 
#' @export

random_dna <- function(l){
  nucleotides <- sample(c("A", "T", "G", "C"), size = l, replace = TRUE)
  dna = paste0(nucleotides, collapse = "")
  return(dna)
}