data("NPreg", package = "flexmix")
ex1 <- flexmix(yn ~ x + I(x^2), data = NPreg, k = 2,
control = list(verb = 5, iter = 100))
zero_effect <- flxglht(ex1, "zero")
zero_effect
summary(zero_effect)
comp_effect <- flxglht(ex1, "tukey")
comp_effect
summary(comp_effect)
Run the code above in your browser using DataLab