R/linpred.GPCM.R

Defines functions linpred.GPCM

linpred.GPCM <-
function (betas, z, IRT.param = TRUE) {
    lapply(betas, function (x) {
        nx <- length(x)
        if (IRT.param)
            t(x[nx] * outer(z, x[-nx], "-"))
        else
            outer(x[-nx], x[nx] * z , "+")
    })
}
drizopoulos/ltm documentation built on April 19, 2018, 2:37 a.m.