R/frm_formula_character.R

In mdmb: Model Based Treatment of Missing Data

## File Name: frm_formula_character.R
## File Version: 0.111


frm_formula_character <- function( ind_mm)
{
    formula_mm <- paste0( ind_mm$formula[2], ' ~ ', ind_mm$formula[3] )
    formula_mm <- paste0( ind_mm$R_fct_name, '( ', formula_mm, ' )' )
    return(formula_mm)
}