ip <- generate_ip(n = sample(10:15,1))
plot(ip)
# Additional arguments will passed to geom_line
plot(ip, size = .25, alpha = 0.3)
# Set the boundaries of the graph
plot(ip, theta_range = c(-2, 2))
# alternatively provide theta values
plot(ip, theta_range = seq(-6, 6, by = 0.25))
# Test Characteristic Curve
plot(ip, type = "tcc")
# Proportion correct for test characteristic curve
plot(ip, type = "tcc", tcc_prop_corr = TRUE)
# Plot histogram of item parameters
plot(ip, type = "hist")
if (FALSE) {
# Item parameter summary
ip <- generate_ip(n = 200)
plot(ip, type = "pars")
plot(ip, type = "pars", dotsize = .75)
plot(ip, type = "pars", focus_item = "Item_22")
# Use base R graphics
plot(ip, type = "pars", base_r_graph = TRUE)
# # Remove the legend altogether
# plot(ip, suppress_plot = TRUE) + ggplot2::theme(legend.position="none")
# # Change the labels:
# plot(ip, suppress_plot = TRUE) +
# ylab("Probability") + xlab("Ability Score")
}
Run the code above in your browser using DataLab