# NOT RUN {
object <- itempool_science
config <- createShadowTestConfig()
true_theta <- rnorm(1)
solution <- Shadow(itempool_science, config, true_theta, constraints_science)
plotCAT(solution, 1)
# }
Run the code above in your browser using DataLab