Wie simulieren bimodale Verteilung?
Ich habe den folgenden code zum generieren bimodale Verteilung, aber wenn ich das Diagramm im Histogramm. Ich sehe nicht den 2 Modi. Ich Frage mich, ob es etwas falsch mit meinem code.
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))
Du musst angemeldet sein, um einen Kommentar abzugeben.
Scheint das problem zu sein, nur zu klein
n
zu klein und Unterschied zwischenmu1
undmu2
untermu1=log(1)
,mu2=log(50)
undn=10000
gibt diese:hist(log(bimodalData), breaks=100)