Nothing
normpostpred=function(parameters,sample.size,f=min)
{
normalsample=function(j,parameters,sample.size)
rnorm(sample.size,mean=parameters$mu[j],sd=sqrt(parameters$sigma2[j]))
m=length(parameters$mu)
post.pred.samples=sapply(1:m,normalsample,parameters,sample.size)
stat=apply(post.pred.samples,2,f)
return(stat)
}
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.