# Make a suitable data list:
spelling_list <- irt_data(response_matrix = spelling[, 2:5],
covariates = spelling[, "male", drop = FALSE],
formula = ~ 1 + male)
if (FALSE) {
# Fit a latent regression 2PL
twopl_fit <- irt_stan(spelling_list, model = "2pl_latent_reg.stan",
iter = 300, chains = 4)
# Get a table of parameter posteriors
print_irt_stan(twopl_fit, spelling_list)
# Or
print_irt_stan(twopl_fit)
}
Run the code above in your browser using DataLab