Nothing
## ====================================
## Function to set the color palette
## of a sequence object
## ====================================
"cpal<-" <- function(seqdata, value) {
if (!inherits(seqdata,"stslist"))
stop("data is not a sequence object, see seqdef function to create one")
nbstate <- length(alphabet(seqdata))
if (length(value)!=nbstate)
stop("number of colors must be",nbstate)
else
attr(seqdata,"cpal") <- value
seqdata
}
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.