powered by
eap(resp, ip, qu)
normal.qu
read.qu.icl
mlebme
data(Scored) 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