我不明白如何找到真实混合密度的图。在下文中,我提供了为正常混合创建函数的代码。而且我了解如何创建每个单独的密度图,但我不知道如何找到真实的密度。
NormalMix <- function(n,omega,mu1,mu2,sigma1,sigma2) {
z <- sample(2,n,replace=T,prob=c(omega,1-omega))
n1 <- sum(z==1)
n2 <- sum(z==2)
z[z==1] <- rnorm(n1,mu1,sigma1)
z[z==2] <- rnorm(n2,mu2,sigma2)
z
}