## Not run:
#
# # simulate data accroding to the traditional diffusion model
# set.seed(1310)
# a=2
# v=1
# ter=2
# sdv=.3
# N=10000
#
# data=simdiffT(N,a,v,sdv,ter)
# rt=data$rt
# x=data$x
#
# # fit the traditional diffusion model (i.e., a restricted D-diffusion model,
# # see application 3 of the paper by Molenaar et al., 2013)
#
# diffIRT(rt,x,model="D",constrain=c(1,2,3,0,4),start=c(rep(NA,3),0,NA))
#
# # this constrained model is a traditional diffusion model
# # please note that the estimated a[i] value = 1/a
# # and that the estimated v[i] value = -v
#
# ## End(Not run)
Run the code above in your browser using DataLab