if (FALSE) {
## How this Cat object was created
data(polknowTAPS)
gpcm_fit <- gpcm(polknowTAPS, constraint = "gpcm", control = list(iter.qN = 200, GHk = 100))
gpcm_cat <- gpcmCat(gpcm_fit)
}
## How to load this Cat object for usage
data(gpcm_cat)
Run the code above in your browser using DataLab