## Not run:
# # simulate data accroding to D-diffusion IRT model
# data=simdiff(N=100,nit=10,model="D")
#
# # fit the D-diffusion IRT model
# res1=diffIRT(data$rt,data$x)
#
# # extract parameter estimates
# coef(res1)
# ## End(Not run)
Run the code above in your browser using DataLab