## Not run:
# #############################################################################
# # EXAMPLE 1: Reduced RUM model, Chiu et al. (2016)
# #############################################################################
#
# data(data.cdm03)
# dat <- data.cdm03$data
# qmatrix <- data.cdm03$qmatrix
#
# #*** Model 1: Reduced RUM
# mod1 <- gdina( dat , q.matrix = qmatrix[,-1] , rule="RRUM" )
# summary(mod1)
#
# #*** Model 2: Additive model with identity link function
# mod2 <- gdina( dat , q.matrix = qmatrix[,-1] , rule="ACDM" )
# summary(mod2)
#
# #*** Model 3: Additive model with logit link function
# mod3 <- gdina( dat , q.matrix = qmatrix[,-1] , rule="ACDM" , linkfct="logit")
# summary(mod3)
# ## End(Not run)
Run the code above in your browser using DataLab