# NOT RUN {
# Plot the information function of an item
plot_info(item(b = 1))
# Plot information function(s) of an Itempool object
n <- sample(10:20,1)
ip <- itempool(data.frame(a = runif(n, .5, 2), b = rnorm(n),
c = runif(n, 0, .3), D = 1))
plot_info(ip)
plot_info(ip, tif = TRUE)
# }
Run the code above in your browser using DataLab