data(sim.rasch)
# estimate Rasch model
mod1 <- tam.mml(resp=sim.rasch)
# item fit
fit1 <- tam.fit( mod1 )
## > print( round( fit1 ,3 ))
## Outfit Outfit_t Infit Infit_t
## I1 0.951 -1.549 0.994 -0.135
## I2 1.033 1.040 1.028 0.755
## I3 1.012 0.387 1.009 0.273
## I4 1.041 1.296 1.057 1.614
Run the code above in your browser using DataLab