data(est2pl)
# prepare the data
mods <- modIRT(coef = est2pl$coef, var = est2pl$var, display = FALSE)
# Estimation of the equating coefficients with the multiple item response function method
eqIRF <- multiec(mods = mods, base = 1, method = "irf")
# estimates of the item parameters on the scale of the base form
item.common(eqIRF)
Run the code above in your browser using DataLab