Nothing
`motif.find` <-
function(motif, sequence) {
## return indices of motif within sequence
position <- regexpr( paste(motif, collapse=""), paste(sequence,collapse=""))
inds <- c(position):c(position+attr(position, "match.length")-1)
return(inds)
}
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.