powered by
dpv(resp, ip, mu = 0, sigma = 1, n = 5)
method="ML"
n
mlebme
eap
p.2pl <- est(Scored, model = "2PL", engine = "ltm") plval <- dpv(resp = Scored, ip = p.2pl)
Run the code above in your browser using DataLab