#############################################################################
# EXAMPLE 1: Unique item response patterns data.read
#############################################################################
data( data.read, package="sirt")
dat <- data.read
# extract item response patterns
res <- immer::immer_unique_patterns(dat)
if (FALSE) {
# back-conversion with expand.table
dat2 <- mirt::expand.table( cbind( res$y, res$w ) )
# check correctness
colMeans(dat)
colMeans(dat2)
}
Run the code above in your browser using DataLab