R/mdmb_regression_optim_yjt_extract.R

In mdmb: Model Based Treatment of Missing Data

## File Name: mdmb_regression_optim_yjt_extract.R
## File Version: 0.04

mdmb_regression_optim_yjt_extract <- function(x, index_beta, eps_shape, index_sigma,
        lambda_fixed, is_lambda_fixed, index_lambda )
{
    np <- length(x)
    beta <- x[index_beta]
    shape <- max( eps_shape, x[ index_sigma ] )
    if ( is_lambda_fixed ){
        lambda <- lambda_fixed
    } else {
        lambda <- x[ index_lambda ]
    }
    #--- output
    res <- list( beta=beta, lambda=lambda, shape=shape, np=np)
    return(res)
}