R/mdmb_regression_ic.R

Defines functions mdmb_regression_ic

## File Name: mdmb_regression_ic.R
## File Version: 0.17


mdmb_regression_ic <- function( N, beta, deviance, type, index_beta, index_sigma,
    index_lambda, index_thresh, index_df=NULL )
{
    ic <- list( n=N, deviance=deviance )
    #-- estimated parameters
    ic$np.beta <- length(index_beta)
    ic$np.sigma <- length(index_sigma)
    ic$np.lambda <- length(index_lambda)
    ic$np.thresh <- length(index_thresh)
    ic$np.df <- length(index_df)
    ic$np <- np <- ic$np.beta + ic$np.sigma + ic$np.lambda + ic$np.thresh + ic$np.df
    #--- information criteria
    ic$AIC <- ic$deviance + 2 * np
    ic$AICc <- ic$deviance + 2 * np    + 2*np*(np+1)/(N-np-1)
    ic$BIC <- ic$deviance + log(N) * np
    ic$CAIC <- ic$deviance + ( log(N) + 1 ) * np
    #--- output
    return(ic)
}

Try the mdmb package in your browser

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

mdmb documentation built on March 7, 2023, 6:58 p.m.