search for: datnormalmixturegaussian

...data. The data can be found here: http://uploadeasy.net/upload/32xzq.rar I look at the density with plot(density(dat),col="red",lwd=2) this has a skew of library(e1071) skewness(dat) -0.1284311 Now, I fit a gaussian mixture according to: f(l)=πϕ(l;μ1,σ21)+(1−π)ϕ(l;μ2,σ22) with: datnormalmixturegaussian<-normalmixEM(dat,lambda=c(0.3828,(1-0.3828)),k=2,fast=TRUE) save the values with: pi<-datnormalmixturegaussian$lambda[1] mu1<-datnormalmixturegaussian$mu[1] mu2<-datnormalmixturegaussian$mu[2] sigma1<-datnormalmixturegaussian$sigma[1] sigma2<-datnormalmixturegaussian$sigma[2] th...