## Not run:
#
# # simulate data according to D-diffusion model
# data=simdiff(N=100,nit=10,model="D")
#
# # fit a D-diffusion model
# res=diffIRT(data$rt,data$x,model="D")
#
# # use the summary function to obtain modeling results
# summary(res)
# ## End(Not run)
Run the code above in your browser using DataLab