# NOT RUN {
n <- sample(10:50,1)
ip <- itempool(data.frame(a = runif(n, .5, 2), b = rnorm(n),
c = runif(n, 0, .3), D = 1.7))
resp <- sim_resp(ip = ip, theta = rnorm(1))
plot_resp_loglik(ip, resp)
plot_resp_loglik(ip, resp, text_size = 9)
# Format the text of the MLE estimate
plot_resp_loglik(ip, resp, size = 3, color = 'blue')
# Suppress the MLE estimate
plot_resp_loglik(ip, resp, show_estimate = FALSE)
# }
Run the code above in your browser using DataLab