# NOT RUN {
#IC's for Rasch model
res <- RM(raschdat2) #Rasch model
pres <- person.parameter(res) #Person parameters
IC(pres)
#IC's for RSM
res <- RSM(rsmdat)
pres <- person.parameter(res)
IC(pres)
# }
Run the code above in your browser using DataLab