ip <- generate_ip(model = "3PL", n = 15)
generate_resp(ip, theta = rnorm(1))
# A list of Response objects
generate_resp(ip, theta = rnorm(5))
# Set the proportion of missing responses:
generate_resp(ip, theta = rnorm(5), prop_missing = 0.3)
Run the code above in your browser using DataLab