R/scaleThetaFromInf.R

In joakimwallmark/PolyOptimalIRT:

scaleThetaFromInf <- function(min, max, theta) {
    new <- theta
    for (i in 1:length(theta)) {
        if (theta[i]==Inf) {
            new[i] <- max
        }
        else {
            new[i] <- (max-min)*exp(theta[i])/(1+exp(theta[i]))+min
        }
    }
    return(new)
}