# NOT RUN {
ip <- generate_ip()
resp <- sim_resp(ip, theta = rnorm(1))
# EAP estimation
est_ability(ip, resp)
est_ability(ip, resp, number_of_quads = 81)
est_ability(ip, resp, prior_pars = c(0, 3))
est_ability(ip, resp, prior_dist = 'unif', prior_pars = c(-3, 3))
est_ability(ip, resp, prior_dist = 't', prior_pars = 3)
est_ability(ip, resp, prior_dist = 'cauchy', prior_pars = c(0, 1))
# Maximum Likelihood estimation
est_ability(ip, resp, method = 'ml')
est_ability(ip, resp, method = 'ml', tol = 1e-8)
est_ability(ip, resp = rep(1, length(ip)), method = 'ml')
est_ability(ip, resp = rep(1, length(ip)), method = 'ml',
theta_range = c(-3, 3))
# Owen's Bayesian ability estimation
est_ability(ip, resp, method = 'owen')
est_ability(ip, resp, method = 'owen', prior_pars = c(0, 3))
# }
Run the code above in your browser using DataLab