#############################################################################
# EXAMPLE 1: deviance plot dichotomous data
#############################################################################
data(sim.rasch)
# 2PL model
mod1 <- tam.mml.2pl(resp=sim.rasch )
# plot deviance change
plotDevianceTAM( mod1 )
Run the code above in your browser using DataLab