Nothing
#setMethod("plot", "ParamFamily",
# function(x,y=NULL,...){
# e1 <- x@distribution
# if(!is(e1, "UnivariateDistribution")) stop("not yet implemented")
#
# plot(e1)
# })
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.