Nothing
simNormMixt <-
function(n, mu.surrog, sd.surrog, pi)
{
pi<-pi/sum(pi)
J<-length(mu.surrog)
r <- rmultinom(1,n,pi)
unlist(sapply(seq(along=r),function(j) rnorm(r[j], mean=mu.surrog[j], sd = sd.surrog[j])))
}
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.