## Example 1: T = 2, A = 4
data(data.tdcm01, package = "TDCM")
dat1 <- data.tdcm01$data
qmat1 <- data.tdcm01$q.matrix
pre <- dat1[, 1:20]
post <- dat1[, 21:40]
# calibrate LCDM with post-test data
m1 <- CDM::gdina(data = post, q.matrix = qmat1, linkfct = "logit", method = "ML")
# score pre-test responses
m2 <- TDCM::tdcm.score(m1, newdata = pre, q.matrix = qmat1)
summary(m2)
m2$pattern
Run the code above in your browser using DataLab