Nothing
post.pred <-
function(z,fun=NULL)
{
x.n.new <- sapply(as.list(1:z$iter),function(g) distr(z$input$n,z$input$dist,z$sims[g,],'r'))
if(!is.null(fun)) return(apply(x.n.new,2,fun))
else return(x.n.new)
}
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.