Comment faire pour simuler la distribution bimodale?

J'ai le code suivant pour générer distribution bimodale mais quand je le graphique de l'histogramme. Je ne vois pas les 2 modes. Je me demande si il ya quelque chose de mal avec mon 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))
InformationsquelleAutor Amateur | 2012-07-17
  1. 14

    Le problème semble être tout simplement trop petit n et trop petite différence entre mu1 et mu2, en prenant mu1=log(1), mu2=log(50) et n=10000 donne ça:

    Comment faire pour simuler la distribution bimodale?

    • Aussi à l'aide de plus que le nombre par défaut de bacs permet par exemple hist(log(bimodalData), breaks=100)
    InformationsquelleAutor Julius Vainora