## Not run:
#
# # return real response vector given choices and (optional) answers
# pat <- generate_pattern(mod, Theta = 0, df=df)
# # mirtCAT(df, mo=mod, local_pattern = pat)
#
# # generate single pattern observed in dataset used to define mod
# pat2 <- generate_pattern(mod, Theta = 0)
# # mirtCAT(mo=mod, local_pattern = pat2)
#
# # generate multiple patterns to be analyzed independently
# pat3 <- generate_pattern(mod, Theta = matrix(c(0, 2, -2), 3))
# # mirtCAT(mo=mod, local_pattern = pat3)
#
# ## End(Not run)
Run the code above in your browser using DataLab