# NOT RUN {
x <- model.matrix(~ 1 + factor(wool) + factor(tension), data = warpbreaks)
y <- warpbreaks$breaks
class_probs = rep(1,54)
b <- c(1, 1, 1, 1)
u <- make.logLike(x, y, class_probs = class_probs)
em.fit_pracma(u, b, x, y, class_probs, weight = c(1))
# }
Run the code above in your browser using DataLab