RcppArmadillo::armadillo_throttle_cores(1)
db = start_new_project(verbAggrRules, ":memory:")
add_booklet(db, verbAggrData, "agg")
f = fit_enorm(db)
mle = ability_tables(f, method="MLE")
eap = ability_tables(f, method="EAP", mu=0, sigma=1)
wle = ability_tables(f, method="WLE")
plot(wle$booklet_score, wle$theta, xlab="test-score", ylab="ability est.", pch=19)
points(mle$booklet_score, mle$theta, col="red", pch=19,)
points(eap$booklet_score, eap$theta, col="blue", pch=19)
legend("topleft", legend = c("WLE", "MLE", "EAP N(0,1)"),
col = c("black", "red", "blue"), bty = "n",pch = 19)
close_project(db)
RcppArmadillo::armadillo_reset_cores()
Run the code above in your browser using DataLab