# NOT RUN {
# plot the IIF for a dichotomous item with k = 2
set.seed(2342)
bmat <- sim_bmat(n_items = 1, k = 2)$bmat
theta <- seq(-3, 3, by = .01)
information <- iif_fmp(theta = theta, bmat = bmat)
plot(theta, information, type = 'l')
# }
Run the code above in your browser using DataLab