Nothing
seqinepi <- function(seqdata) {
z <- suppressMessages(seqdef(seqdss(seqdata),missing="%",alphabet=alphabet(seqdata)))
nbepi <- suppressMessages(seqistatd(z))
colnames(nbepi) <- paste0("nepi", alphabet(seqdata))
return(nbepi)
}
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.