Loop in CatR to produce Theta estimation for a matrix

Question

I\'m trying to write a loop in order to estimate ability (Theta) on a matrix of questionnaire responses.

I\'m using the thetaEst function in CatR to derive ability estima