Nothing
## ========================
## State distribution plot
## ========================
seqdplot <- function(seqdata, group=NULL, main="auto", ...) {
seqplot(seqdata, group=group, type="d", main=main, ...)
}
seqdHplot <- function(seqdata, group=NULL, main="auto", ...) {
seqplot(seqdata, group=group, type="dH", main=main, ...)
}
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.