R/betas.rasch.R

In drizopoulos/ltm: Latent Trait Models under IRT

betas.rasch <-
function (betas, constraint, p) {
    if (!is.null(constraint)) {
        betas. <- numeric(p + 1)
        betas.[constraint[, 1]] <- constraint[, 2]
        betas.[-constraint[, 1]] <- betas
        cbind(betas.[1:p], abs(betas.[p + 1]))
    } else {
        cbind(betas[1:p], abs(betas[p + 1]))
    }
}