R/mice_1chain_check_input.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

## File Name: mice_1chain_check_input.R
## File Version: 0.03

mice_1chain_check_input <- function(burnin, iter, Nimp)
{
    if (burnin <=0){
        burnin <- 1
    }
    if (iter <=burnin + Nimp ){
        iter <- burnin + Nimp
    }
    #--- output
    res <- list( burnin=burnin, iter=iter, Nimp=Nimp)
    return(res)
}