Nothing
## ============================
## Random sequences generation
## ============================
seqgen <- function(n, length, alphabet, p=NULL) {
## FROM http://www.cs.chalmers.se/~dubhashi/Courses/BioAlg/Markov%20chains%20and%20DNA%20sequence%20analysis%20in%20R.htm
m <- matrix(nrow=n, ncol=length)
for (i in 1:n)
m[i,] <- sample(alphabet, length, replace=TRUE, p)
colnames(m) <- paste("[",1:length,"]", sep="")
rownames(m) <- 1:n
return(m)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.