ip <- generate_ip(n = 20)
cd1 <- create_cat_design(ip = ip,
termination_rule = c('max_item'),
termination_par = list(max_item = 5))
cd2 <- create_cat_design(ip = ip,
termination_rule = c('max_item'),
termination_par = list(max_item = 9))
cd <- c(cd1, cd2)
Run the code above in your browser using DataLab