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)
# Get only selected columns
summary(cat_data, cols = c("examinee_id", "true_ability", "est_ability",
"bias"))
summary(cat_data, cols = c("examinee_id", "true_ability", "est_ability",
"mean_qip", "median_qip", "min_qip"))
Run the code above in your browser using DataLab