R/mdmb_regression_optim_yjt_fct.R

In alexanderrobitzsch/mdmb: Model Based Treatment of Missing Data

## File Name: mdmb_regression_optim_yjt_fct.R
## File Version: 0.212


mdmb_regression_optim_yjt_fct <- function(x, index_beta, eps_shape, index_sigma,
            lambda_fixed, is_lambda_fixed, index_lambda, index_df, est_df, Xdes,
            offset_values, y, df, probit, weights, is_prior, beta_prior, use_grad,
            dens_fct )
{
    res <- mdmb_regression_optim_yjt_extract( x=x, index_beta=index_beta,
                        eps_shape=eps_shape, index_sigma=index_sigma,
                        lambda_fixed=lambda_fixed, is_lambda_fixed=is_lambda_fixed,
                        index_lambda=index_lambda )
    beta <- res$beta
    shape <- res$shape
    lambda <- res$lambda
    y_pred <- Xdes %*% beta + offset_values
    df <- mdmb_compute_df(x=x, est_df=est_df, df=df)
    ll_i <- dens_fct( y, location=y_pred, shape=shape, lambda=lambda, df=df,
                        log=TRUE, probit=probit )
    ll <- - sum( weights * ll_i )
    #--- include prior distributions
    if (is_prior){
        ll <- ll - eval_prior_list_sumlog( par=x, par_prior=beta_prior,
                            use_grad=use_grad )
    }
    #--- output
    return(ll)
}