R/sirt_pem_parameter_sequence_initial_iterations.R

Defines functions sirt_pem_parameter_sequence_initial_iterations

## File Name: sirt_pem_parameter_sequence_initial_iterations.R
## File Version: 0.07

sirt_pem_parameter_sequence_initial_iterations <- function( pem_parm,
            pem_parameter_sequence, iter )
{
    if (iter < 3){
        for (ii in 0:2){
            if (iter==ii){
                pem_parameter_sequence[[ paste0('P',ii) ]] <- pem_parm
            }
        }
    }
    return(pem_parameter_sequence)
}

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.