## Not run:
# #############################################################################
# # 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)
# ## End(Not run)
#############################################################################
# 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