## Not run:
# # open rotation data
# data(rotation)
# x=rotation[,1:10]
# rt=rotation[,11:20]
#
# # fit an unconstrained Q-diffusion model
# res1=diffIRT(rt,x,model="Q")
#
# # make QQ-plots and histograms for items 1 to 4.
# QQdiff(res1, items=1:4, plot=2, maxRT=rep(50,4))
# ## End(Not run)
Run the code above in your browser using DataLab