ip <- generate_ip(n = 5)
cd <- create_cat_design(ip = ip, next_item_rule = 'random',
termination_rule = 'min_item',
termination_par = list('min_item' = 5))
cd
Run the code above in your browser using DataLab