Nothing
makeBbdpars <- function(m,s,size,ndata) {
rslt <- list(m=m,s=s,size=size,ndata=ndata)
class(rslt) <- "Bbdpars"
rslt
}
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.