## Not run: ------------------------------------
# mod1 <- GDINA(frac20$dat,frac20$Q,model="DINA")
# mod1
# summary(mod1)
# # Higher order model
# mod2 <- GDINA(frac20$dat,frac20$Q,model="DINA",att.dist="higher.order")
# mod2
# anova(mod1,mod2)
## ---------------------------------------------
Run the code above in your browser using DataLab