[1]/sum(lam)),
stat_function(geom = "line", fun = plot_mix_comps,
args = list(c2[1],...c2[2], lam[2]/sum(lam)),
colour = "blue", lwd = 1.5) +
ylab("Density")
?.....), binwidth = 0.1, colour = "black", fill = "white") +
args = list(c1[1], c1[2], lam...,
args = list(c2[1], c2[2], lam[2]/sum(lam)),
stat_function(geom = "line", fun = plot_mix_comps...,
args = list(c3[1], c3[2], lam[3]/sum(lam)),
colour = "green", lwd =