# NOT RUN {
x <- model.matrix(~ 1 , data = warpbreaks)
y <- warpbreaks$breaks
b.list <- list(1, 1)
class_probs = matrix(rep(0.5, 54*2), ncol = 2)
em.glm_pracma_fit(x = x, y = y, b.list = b.list, class_probs = class_probs)
# }
Run the code above in your browser using DataLab