R/sirt_pem_collect_parameters.R

Defines functions sirt_pem_collect_parameters

## File Name: sirt_pem_collect_parameters.R
## File Version: 0.06

sirt_pem_collect_parameters <- function( parmlist, pem_parameter_index )
{
    NV <- pem_parameter_index[['__length_parameter_vector']]
    parm <- rep(0, NV)
    NP <- pem_parameter_index[['__n_parameters']]
    NPL <- length(parmlist)
    for (pp in 1:NPL){
        var_pp <- names(parmlist)[pp]
        parm_index_pp <- pem_parameter_index[[ var_pp ]]
        x <- as.vector(parmlist[[pp]])
        parm[ parm_index_pp$index ] <- x
    }
    return(parm)
}

Try the sirt package in your browser

Any scripts or data that you put into this service are public.

sirt documentation built on May 29, 2024, 8:43 a.m.