# NOT RUN {
summary(itempool_science)
summary(itemattrib_science)
cfg <- createStaticTestConfig()
solution <- Static(cfg, constraints_science)
summary(solution)
cfg <- createShadowTestConfig()
solution <- Shadow(cfg, constraints_science, true_theta = seq(-1, 1, 1))
summary(solution)
# }
Run the code above in your browser using DataLab