#############################################################################
# EXAMPLE 1: Fitted Rasch model in TAM package
#############################################################################
library(TAM)
data(sim.rasch, package="TAM")
#--- Model 1: Rasch model
mod1 <- tam.mml(resp=sim.rasch)
# apply IRT.predict function
prmod1 <- IRT.predict(mod1 , mod1$resp )
str(prmod1)
#############################################################################
# EXAMPLE 2: Predict function for din
#############################################################################
data(sim.dina)
data(sim.qmatrix)
# DINA Model
mod1 <- din(sim.dina, q.matr = sim.qmatrix, rule = "DINA" )
summary(mod1)
# apply predict method
prmod1 <- IRT.predict( mod1 , sim.dina )
str(prmod1)
Run the code above in your browser using DataLab