info <- irt_information(
a = c(mood_1 = 1.4, mood_2 = 0.9, mood_3 = 1.1),
b = c(-1.5, -0.5, 0.5, 1.5, 0.0, 0.8),
item = c(rep("mood_1", 4), "mood_2", "mood_3")
)
# Test information with the standard error on the secondary axis.
plot_irt_information(info)
# One curve per item.
plot_irt_information(info, what = "item")
Run the code above in your browser using DataLab