# NOT RUN {
cd <- create_cat_design(ip = generate_ip(n = 30),
termination_rule = c('max_item'),
termination_par = list(max_item = 7))
cat_sim_fast(true_ability = rnorm(1), cd = cd, n_cores = 1)
cat_sim_fast(true_ability = rnorm(2), cd = cd, n_cores = 1)
# }
Run the code above in your browser using DataLab