powered by
dnormmix(x, theta)
n <- 2000 theta <- c(0.8, 0, 1, 0, 4, 1) x <- rnormmix(n, theta) hist(x, freq=FALSE, n=100) curve(dnormmix(x, theta), add=TRUE, lwd=2)
Run the code above in your browser using DataLab