if (FALSE) {
#############################################################################
# EXAMPLE 1: Usage IRT.frequencies
#############################################################################
data(sim.dina, package="CDM")
data(sim.qmatrix, package="CDM")
# estimate GDINA model
mod1 <- CDM::gdina( data=sim.dina, q.matrix=sim.qmatrix)
summary(mod1)
# direct usage of IRT.frequencies
fres1 <- CDM::IRT.frequencies(mod1)
# use of the default function with input data
data <- CDM::IRT.data(object)
post <- CDM::IRT.posterior(object)
probs <- CDM::IRT.irfprob(object)
fres2 <- CDM::IRT_frequencies_default(data=data, post=post, probs=probs)
}
Run the code above in your browser using DataLab