# NOT RUN {
data("NPreg", package = "flexmix")
fitted <- initFlexmix(yn ~ x + I(x^2) | id2, data = NPreg, k = 2)
# }
# NOT RUN {
lrtest <- LR_test(fitted, alternative = "greater", R = 20,
verbose = 1)
# }
Run the code above in your browser using DataLab