Nothing
## 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.