Rのバイモダル分布のシミュレーション方法は？

Question

バイモダル分布を生成するのに、ヒストグラムをグラフ化すると、次のコードがあります。私は2つのモードが表示されません。私は自分のコードに何か問題があるのだろうかと思っています。

mu1 <- log(1) 
mu2 <- log(10) 
sig1 <- log(3) 
sig2 <- log(3) 
cpct <- 0.4 

bimodalDistFunc <- function (n,cpct, mu1, mu2, sig1, sig2) { 
    y0 <- rlnorm(n,mean=mu1, sd = sig1) 
    y1 <- rlnorm(n,mean=mu2, sd = sig2) 

    flag <- rbinom(n,size=1,prob=cpct) 
    y <- y0*(1 - flag) + y1*flag 
} 

bimodalData <- bimodalDistFunc(n=100,cpct,mu1,mu2, sig1,sig2) 
hist(log(bimodalData)) 

Answer 1

問題がnあまりにも小さいように思えるとmu1とmu2、mu1=log(1)を取って、mu2=log(50)とn=10000間小さすぎる違いは、このを与える：