# NOT RUN {
n <- 100 # number of items
ip <- generate_ip(n = n,
content = sample(c("Algebra", "Arithmetic", "Geometry"),
n, replace = TRUE))
cd <- create_cat_design(ip = ip, next_item_rule = 'mfi',
termination_rule = 'max_item',
termination_par = list(max_item = 10))
cat_data <- cat_sim(true_ability = rnorm(5), cd = cd)
summary(cat_data)
# }
Run the code above in your browser using DataLab