swh:1:snp:ffdd0a7d2c8ea15ad41d45b3b178f668bd942287
Tip revision: f7b08f68321b0956cc9c9101e529efc45cb3b059 authored by Derek Young on 14 May 2014, 07:27:27 UTC
version 1.0.2
version 1.0.2
Tip revision: f7b08f6
rnormmix.R
# 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))
}