########################
# use data.read
data(data.read)
# estimate the Rasch model
mod <- rasch.mml2( data.read)
mod$item
# estmate WLEs
mod.wle <- wle.rasch( dat = data.read , b = mod$item$b )
# Yen's Q3 statistic
mod.q3 <- yen.q3( dat = data.read , theta = mod.wle$theta , b = mod$item$b )
Run the code above in your browser using DataLab