Nothing
## 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.