R/gate.R
dot-mbmm_obs_ll_binary.Rd
Computes
.mbmm_obs_ll_binary(beta, X, logL_pos, logL_neg)
$$ \ell(\beta) = \sum_i \log\left[ \pi_i(\beta)L_{i1} + \{1-\pi_i(\beta)\}L_{i0} \right]. $$
This function returns the unpenalized observed-data likelihood.