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