#############################################################################
# EXAMPLE 1: Extracting likelihood and posterior from a DINA model
#############################################################################
data(sim.data)
data(sim.qmatrix)
#*** estimate model
mod1 <- din(sim.dina, sim.qmatrix, rule = "DINA" , maxit=10)
#*** extract likelihood
likemod1 <- IRT.likelihood(mod1)
str(likemod1)
# extract theta
attr(likemod1, "theta" )
#*** extract posterior
pomod1 <- IRT.posterior( mod1 )
str(pomod1)
Run the code above in your browser using DataLab