Nothing
## =======================
## Comparing two sequences
## =======================
seqcomp <- function(x, y) {
lx <- seqlength(x)
ly <- seqlength(y)
if (lx!=ly)
return(FALSE)
else if (sum(x[1:lx]==y[1:ly])==lx)
return(TRUE)
else
return(FALSE)
}
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.