R/xxirt_ThetaDistribution_extract_freeParameters.R

Defines functions xxirt_ThetaDistribution_extract_freeParameters

## File Name: xxirt_ThetaDistribution_extract_freeParameters.R
## File Version: 0.10


xxirt_ThetaDistribution_extract_freeParameters <- function( customTheta )
{
    est <- customTheta$est
    if ( sum(est)==0 ){
        par1 <- NULL
    } else {
        par1 <- customTheta$par[ est ]
    }
    return(par1)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.