如何模拟R中的双峰分布？

我有以下代码来生成双峰分布，但是当我绘制直方图时。我没有看到2种模式。我想知道我的代码是否有问题。如何模拟R中的双峰分布？

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))

来源

2012-07-17 Amateur

的问题似乎只是太小n和mu1和mu2，采取mu1=log(1)，mu2=log(50)和n=10000之间太小差异给出了这样的：

enter image description here

来源

2012-07-17 20:17:55 Julius

我明白了。谢谢。 – Amateur 2012-07-17 20:44:53

也可以使用超过预设数量的垃圾箱，例如， 'hist（log（bimodalData），breaks = 100）' – 2014-03-11 14:22:20

如何模拟R中的双峰分布？

回答

相关问题