## Not run: ------------------------------------
# dat <- sim10GDINA$simdat
# Q <- sim10GDINA$simQ
# # --- GDINA model ---#
# mod1 <- GDINA(dat = dat, Q = Q, model = "GDINA")
# mod1
# wmod1 <- modelcomp(mod1)
# wmod1
# # wald statistics
# extract(wmod1,"wald")
# #p values
# extract(wmod1,"wald.p")
# wmod1r <- modelcomp(mod1,DS=TRUE)
# #dissimilarity index
# extract(wmod1r,"DS")
# wmod2 <- modelcomp(mod1,models = c("DINA","DINO"))
# wmod2
# wmod3 <- modelcomp(mod1,item=c(8,9,10),DS=FALSE)
# wmod3
## ---------------------------------------------
Run the code above in your browser using DataLab