if (FALSE) {
#############################################################################
# EXAMPLE 1: Individual classification data.ecpe
#############################################################################
data(data.ecpe, package="CDM")
dat <- data.ecpe$dat[,-1]
Q <- data.ecpe$q.matrix
#** estimate GDINA model
mod <- CDM::gdina(dat, q.matrix=Q)
summary(mod)
#** classify individuals
cmod <- CDM::IRT.classify(mod)
str(cmod)
}
Run the code above in your browser using DataLab