if (FALSE) {
set.seed(1234)
tmpd <- data.frame(
x1 = rnorm(200),
x2 = rnorm(200),
x3 = cut(rnorm(200),
breaks = c(-Inf, -.7, .7, Inf),
labels = c("a", "b", "c")))
tmpd$y <- cut(rnorm(200, sd = 2) + tmpd$x1 + tmpd$x2 + I(tmpd$x3 == "b"),
breaks = c(-Inf, -.5, 1, Inf),
labels = c("L", "M", "H"))
test <- mplusGLM(y ~ x1 + x2 + x3, data = tmpd)
}
Run the code above in your browser using DataLab