## Not run:
# # simulate data accroding to D-diffusion model
# data=simdiff(N=100,nit=10,model="D")
#
# # fit an unconstrained model
# res1=diffIRT(data$rt,data$x,model="D")
#
# # estimate factor scores
# fs=factest(res1)
# ## End(Not run)
Run the code above in your browser using DataLab