## Not run:
# # open extraversion data
# data(extraversion)
# x=extraversion[,1:10]
# rt=extraversion[,11:20]
#
# # fit an unconstrained D-diffusion model
# res1=diffIRT(rt,x,model="D")
#
# # Conduct the limited-information test
# RespFit(res1, 2)
# ## End(Not run)
Run the code above in your browser using DataLab