## Not run: ------------------------------------
# mod1 <- GDINA(ecpe$dat,ecpe$Q)
# mod1
# summary(mod1)
#
# mod2 <- GDINA(ecpe$dat,ecpe$Q,model="RRUM")
# mod2
# anova(mod1,mod2)
# # You may compare the following results with Feng, Habing, and Huebner (2013)
# itemparm(mod2,"rrum")
## ---------------------------------------------
Run the code above in your browser using DataLab