# NOT RUN {
cd <- create_cat_design(ip = generate_ip(n = 30), next_item_rule = 'mfi',
termination_rule = 'max_item',
termination_par = list(max_item = 10))
cat_data <- cat_sim(true_ability = rnorm(10), cd = cd)
calculate_overlap_rates(cat_data, cd = cd)
# }
Run the code above in your browser using DataLab