if (FALSE) {
## Creating Cat object with raw data
data(nfc)
grm_cat1 <- grmCat(nfc, quadraturePoints = 100)
## Creating Cat object with fitted object of class grm
grm_fit <- grm(nfc, control = list(GHk = 100)) ## from ltm package
class(grm_fit)
grm_cat2 <- grmCat(grm_fit)
## Note the two Cat objects are identical
identical(grm_cat1, grm_cat2)
}
## Creating Cat objects from large datasets is computationally expensive
## Load the Cat object created from the above code
data(grm_cat)
## Slots that have changed from default values
getModel(grm_cat)
getDifficulty(grm_cat)
getDiscrimination(grm_cat)
## Changing slots from default values
setEstimation(grm_cat) <- "MLE"
setSelection(grm_cat) <- "MFI"
Run the code above in your browser using DataLab