bin-mix-bin

library(EM.examples)

X = c(1,0,0)

plot(function(p) likelihood_bin_mix(x = X, pi = p), xlim = c(.33,.34)); abline(v = 4*mean(X) - 1)

plot(function(p) likelihood_bin_mix(x = X, pi = p), xlim = c(0,1)); abline(v = 4*mean(X) - 1)

plot(function(p) likelihood_bin_mix(x = X, pi = p) |> log(), xlim = c(0,1)); abline(v = 4*mean(X) - 1)