I just needed to come up with a name for my blog, so as most of the times, when I'm working in the lab I got some help from my favourite programming language, R. See if you could find a better name with playing a round with the seedNumber, and nameSize parameters. You might find another unique name that no one have ever herd before, such as gattaca. OK, maybe this wouldn't be a unique name to choose after all !
dnaSeqRandGenerator<- function(
seedNumber=NULL,
nameSize=4
){
DNAseqs<- c("A","C","G","T")
set.seed(seedNumber)
generatedName<-
paste(sample(DNAseqs, nameSize, replace=T),
collapse="")
return(
generatedName
)
}
dnaSeqRandGenerator(seedNumber=13, nameSize=7)
#[1] "GACATAG"
(Last updated on 2nd, Jan, 2023)
Add a comment