# \donttest{
# Fit a 3-parameter IRT model to the sample dataset
result.IRT <- IRT(J15S500, model = 3)
# Display the first few rows of estimated student abilities
head(result.IRT$ability)
# Plot Item Characteristic Curves (ICC) for items 1-6 in a 2x3 grid
plot(result.IRT, type = "ICC", items = 1:6, nc = 2, nr = 3)
# Plot Item Information Curves (IIC) for items 1-6 in a 2x3 grid
plot(result.IRT, type = "IIC", items = 1:6, nc = 2, nr = 3)
# Plot the Test Information Curve (TIC) for all items
plot(result.IRT, type = "TIC")
# }
Run the code above in your browser using DataLab