subitempool <- itempool_science[1:8]
## Plot item information of a pool
plot(subitempool)
plot(itempool_science, select = 1:8)
## Plot expected score of a pool
plot(subitempool, type = "score")
plot(itempool_science, type = "score", select = 1:8)
## Plot assembly results from Static()
cfg <- createStaticTestConfig()
solution <- Static(cfg, constraints_science)
plot(solution) # defaults to the objective type
plot(solution, type = "score") # plot expected scores
## Plot attainable information range from constraints
plot(constraints_science)
## Plot assembly results from Shadow()
cfg <- createShadowTestConfig()
set.seed(1)
solution <- Shadow(cfg, constraints_science, true_theta = rnorm(1))
plot(solution, type = 'audit' , examinee_id = 1)
plot(solution, type = 'shadow', examinee_id = 1, simple = TRUE)
## plot(solution, type = 'exposure')
## plot(solution, type = 'overlap')
Run the code above in your browser using DataLab