R/sirt_pem_parameter_sequence_initial_iterations.R

In sirt: Supplementary Item Response Theory Models

## 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)
}