I am using sirt package , my code is as following
data.read=read.csv(".../testlet.csv")
estimate the Rasch model
mod <- sirt::rasch.mml2(data.read)
estmate WLE
mod.wle <- sirt::wle.rasch( dat=data.read, b=mod$item$b )
Yen's Q3 statistic
mod.q3 <- sirt::Q3( dat=data.read, theta=mod.wle$theta, b=mod$item$b )
write output
write.csv(mod.q3,".../Q3 statistics for all item pairs.csv")
However, when I tried export "mod.q3" using write.csv, the error are the following.
Error in (function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE, : **
** arguments imply differing number of rows: 40, 780, 81, 9
Please help how to correctly export output "mod.q3".
Thanks a lot!