R/frm_em_linreg_density_extend_args.R

In mdmb: Model Based Treatment of Missing Data

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

frm_em_linreg_density_extend_args <- function(args, ind_mm)
{
    if (ind_mm$model=='linreg'){
        args$X <- ind_mm$R_des$x
        args$offset <- ind_mm$R_des$offset
    }
    return(args)
}