powered by
n
rnorMix(n, obj)
norMix
m.norMix(obj)
rnorm
dnorMix
x <- rnorMix(5000, MW.nm10) hist(x)# you don't see the claw plot(density(x), ylim = c(0,0.6), main = "Estim. and true 'MW.nm10' density") lines(MW.nm10, col = "orange")
Run the code above in your browser using DataLab