R/cdm_pem_parameter_sequence_initial_iterations.R

Defines functions cdm_pem_parameter_sequence_initial_iterations

## File Name: cdm_pem_parameter_sequence_initial_iterations.R
## File Version: 0.04

cdm_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 CDM package in your browser

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

CDM documentation built on Aug. 25, 2022, 5:08 p.m.