## Not run: ------------------------------------
# dat <- sim10GDINA$simdat
# Q <- sim10GDINA$simQ
#
#
# mod1 <- GDINA(dat = dat, Q = Q, model = "GDINA")
# check <- monocheck(mod1)
# check
# mod2 <- GDINA(dat = dat, Q = Q, model = "GDINA",mono.constraint = check)
# check2 <- monocheck(mod2)
# check2
## ---------------------------------------------
Run the code above in your browser using DataLab