Use ridge penalty to prevent separation. Not be called by user!
EM_prelim_logit(X, Z, s, pg_b, iter, ridge = 2)EM_prelim_nb(X, Z, y, est_r, iter, ridge = 2)
Design matrix
RE design matrix
(y_i - n_i)/2 for polya-gamma input
n_i as vector input
iterations
variance of ridge prior
Raw observed y_i
Initial r value (not updated!)