R/syn_da_extend_list.R

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

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


syn_da_extend_list <- function(formula, syn_vars)
{
    NSV <- length(syn_vars)
    res <- list()
    for (ss in 1:NSV){
        res[[ syn_vars[ss] ]] <- formula[[ syn_vars[ss] ]]
    }
    return(res)
}