Nothing
# Simulate from a normal mixture. New version simply calls rmvnormmix.
# normmix.sim is here for backwards compatibility
rnormmix <- normmix.sim <- function(n,lambda=1,mu=0,sigma=1) {
if (NCOL(mu)>1 || NCOL(sigma)>1)
stop ("Use the rmvnormmix function instead.")
as.vector(rmvnormmix(n,lambda,mu,sigma))
}
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.