## File Name: mice_imputation_extract_list_arguments.R
## File Version: 0.19
#---- extract list argument
mice_imputation_extract_list_arguments <- function( micearg, vname, miceargdefault )
{
if( is.list(micearg) ){
if ( ! is.null(micearg[[vname]] ) ){
micearg <- micearg[[vname]]
} else {
micearg <- miceargdefault
}
}
if ( is.null(micearg) ){
micearg <- miceargdefault
}
return(micearg)
}
#--- deprecated function
.extract.list.arguments <- mice_imputation_extract_list_arguments
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.