R/syn_da_create_formula.R

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

## File Name: syn_da_create_formula.R
## File Version: 0.051

syn_da_create_formula <- function(wv, ord_vars)
{
    v2 <- ifelse( wv %in% ord_vars, paste0('as.factor(',wv,')'), wv )
    v2 <- paste0( v2, collapse=' + ')
    return(v2)
}