# 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 <- generate_ip()
plot_info(ip)
plot_info(ip, tif = TRUE)
plot_info(ip, tif = TRUE, theta_range = c(-3, 3))
# Focus on one item
plot_info(ip, focus_item = "Item_2")
# Base R Graphics
plot_info(ip, base_r_graph = TRUE)
plot_info(ip, focus_item = "Item_2", base_r_graph = TRUE)
# Plot information with focus on a specific item(s)
plot_info(ip, focus_item = "Item_1")
plot_info(ip, focus_item = 3)
# plot_info(ip, focus_item = c(2, 8))
# plot_info(ip, focus_item = c("Item_5", "Item_6"))
plot_info(ip, focus_item = 7, alpha = .7, color = "gray")
plot_info(ip, focus_item = "Item_3", color = "green", base_r_graph = TRUE)
# Information Plots with Testlets
ip <- c(testlet(itempool(b = c(-1, 1), item_id = c("t1-i1", "t1-i2"),
D = 1.702), testlet_id = "t1"),
testlet(itempool(b = c(-2, 0, 2),
item_id = c("t2-i1", "t2-i2", "t2-i3"),
D = 1.702), testlet_id = "t2"),
item(b = -1.5, item_id = "i1", D = 1.702),
item(b = 0.25, item_id = "i2", D = 1.702),
item(b = 1.5, item_id = "i3", D = 1.702))
plot_info(ip)
plot_info(ip, separate_testlet = FALSE)
Run the code above in your browser using DataLab