## Not run: ------------------------------------
# dat <- sim10GDINA$simdat
# Q <- sim10GDINA$simQ
# # --- GDINA model ---#
# mod1 <- GDINA(dat = dat, Q = Q, model = "GDINA")
# mod1
# itmfit <- itemfit(mod1)
#
# # Print "test-level" item fit statistics
# # p-values are adjusted for multiple comparisons
# # for proportion correct, there are J comparisons
# # for log odds ratio and transformed correlation,
# # there are J*(J-1)/2 comparisons
#
# itmfit
#
# # The following gives maximum item fit statistics for
# # each item with item level p-value adjustment
# # For each item, there are J-1 comparisons for each of
# # log odds ratio and transformed correlation
# summary(itmfit)
#
# # use extract to extract various components
# extract(itmfit,"r")
#
# mod2 <- GDINA(dat,Q,model="DINA")
# itmfit2 <- itemfit(mod2)
# #misfit heatmap
# heatplot(itmfit2)
# itmfit2
## ---------------------------------------------
Run the code above in your browser using DataLab