R/coef.gpcm.R

Defines functions coef.gpcm

Documented in coef.gpcm

coef.gpcm <-
function (object, ...) {
    if (!inherits(object, "gpcm"))
        stop("Use only with 'gpcm' objects.\n")
    coefs <- lapply(object$coefficients, round, digits = 3)
    if (all(sapply(coefs, length) == length(coefs[[1]])))
        coefs <- do.call(rbind, coefs)
    coefs
}
drizopoulos/ltm documentation built on April 19, 2018, 2:37 a.m.