powered by
extract(ipar)
lordif
##calib.sparse <- grm(sparse.matrix,constrained=FALSE,IRT.param=TRUE) ipar.sparse <- extract(calib.sparse)
Run the code above in your browser using DataLab