R/mice_imputation_smcfcs_evaluate_loglikelihood.R

Defines functions mice_imputation_smcfcs_evaluate_loglikelihood

## File Name: mice_imputation_smcfcs_evaluate_loglikelihood.R
## File Version: 0.182

mice_imputation_smcfcs_evaluate_loglikelihood <- function(model1, model2, data)
{
    if (!is.null(model1)){
        ll1 <- mice_imputation_smcfcs_evaluate_loglikelihood_model(model=model1,
                            data=data)
    } else {
        ll1 <- 0
    }
    ll2 <- mice_imputation_smcfcs_evaluate_loglikelihood_model(model=model2,
                            data=data)
    ll <- ll1 + ll2
    #-- output
    return(ll)
}

Try the miceadds package in your browser

Any scripts or data that you put into this service are public.

miceadds documentation built on May 29, 2024, 11:05 a.m.