x = c(rnorm(100,34.5,1.5), rnorm(200,40,1.39))
y = round(x,0)
(out = binem(y))
p = out$Para$Prop
mu = out$Para$Mean
s = out$Para$Std.Dev
x0 = seq(min(y),max(y),length=100)
plot(dmixnorm(x0,p,mu,s)~x0,type='l')
(out2 = smkde(y))
lines(out2,col=2)
lines(density(y),col=3)
lines(density(x),col=4)
p0 = c(1/3,2/3)
mu0 = c(34.5,40)
s0 = c(1.5,1.39)
lines(dmixnorm(x0,p0,mu0,s0)~x0,lwd=2,col=2)
Run the code above in your browser using DataLab