powered by
eap(resp, ip, qu)
normal.qu
read.qu.icl
mlebme
p.2pl <- est(Scored, model = "2PL", engine = "ltm") th.eap <- eap(resp = Scored, ip = p.2pl, qu = normal.qu())
Run the code above in your browser using DataLab