Nothing
rmix.pois <-
function(n,alpha,theta)
#n: sample size.
#alpha: vector of mixture probabilities.
#theta: vector of probabilities of success of each component.
{
m=length(theta)
alpha=alpha/sum(alpha)
data=c()
nindex=rmultinom(1,n,alpha)
for(i in 1:m)
data=c(data,rpois(nindex[i],theta[i]))
data
}
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.