## create a mix of two Gaussian
v <-c(rnorm(80,mean=-0.5,sd=1),rnorm(80,mean=1,sd=0.2))
## apply Mclust
mc <- Mclust(v)
## plot fitted Gaussian on histogram of v
hist(v, freq=FALSE)
MineICA:::plotMclust(mc=mc,data=v)
Run the code above in your browser using DataLab