data(Scored)
p.2pl <- est(Scored, model="2PL", engine="ltm")
# plot IIF for all items in red, label with item number
plot(iif(p.2pl), co="red", label=TRUE)
# plot IIF for items 2, 3, and 7 in different colours
plot(iif(p.2pl[c(2,3,7),]), co=NA)
Run the code above in your browser using DataLab