## mctest: An R package for Detection of Collinearity among Regressors

In this post, I will discuss

The problem of multicollinearity plagues the numerical stability of regression estimates. It also causes some serious problem in validation and interpretation of the regression model. Consider the usual multiple linear regression model,

$latex y = X \beta+u$,

where $latex y$ is an $latex n\times 1$ vector of observation on dependent variable, $latex X$ is known design matrix of order $latex \times p$, having full-column rank $latex p$, $latex \beta$ is $latex p \times 1$ vector of unknown parameters and $latex u$ is an $latex n\times 1$ vector of random errors with mean zero and variance $latex \sigma^2 I_n$, where $latex I_n$ is an identity matrix of order $latex n$.

**Collinearity Among Regressors**

The existence of linear dependence (relationship) between regressors can affect the regression model ability to estimate the model’s parameters (regression coefficients). Therefore, multicollinearity is lack of independence or the presence of interdependence signified by usually high inter-correlations within a set of regressors (predictors).

In case of severe multicollinearity (mathematically when matrix is ill-conditioned) the $latex X’X$ matrix cannot be inverted, implausible signs of coefficients, low t-ratios, high R-squared values, inflated standard errors, wider confidence intervals, very large condition number (CN) and non-significant and/or magnitude of regression coefficient estimates are some of the possible issues.

There are many diagnostic methods are available to check the existence of collinearity among regressors, such as variance inflation Factor (VIF), values of pair-wise correlation among regressors, eigenvalues, CN, Farrar and Glauber tests, Theil’s measure, and Klein’s rule, etc.

Our recently developed R package **mctest** computes several diagnostic measures to test the existence of collinearity among regressors. We classified these measures as individual collinearity diagnostic and overall collinearity diagnostics. Overall collinearity diagnostic includes determinant of $latex X’X$ matrix, red indicator, Farrar Chi-Square test, Theil indicator, CN, and the sum of lambda inverse values. Individual collinearity diagnostics include VIF/ TOL, Farrar and Glauber Wi test, the relationship between $R^2$ and F-test, corrected VIF (CVIF) and Klein’s rule.

**How to use mctest package**

You must have installed and load the **mctest** package to start with testing of collinearity among regressors. As an example, we used Hald data which is already bundled in **mctest package.**

**mctest** package have 4 functions namely, *mctest()*, *omcdiag(), imcdiag()* and *mc.plot()* functions. The *mctest()* function can be used to have overall and/or individual collinearity diagnostic. The *mc.plot()* can be used to draw graph of VIF and eigenvalues to have graphical judgement of among collinearity among regressors.

**mctest illustrative Example**

Arguments of **mctest** are with syntax are

mctest(x, y, type = c(“o”, “I”, “b”), na.rm = TRUE, Inter = TRUE, method = NULL, corr = FALSE, detr = 0.01, red = 0.5, theil = 0.5, cn = 30, vif = 10, tol = 0.1, conf = 0.95, cvif = 10, leamer = 0.1, all = all)

See the detail of each argument see the **mctest** package documentation. Following are few commands that can be used get different collinearity diagnostics.

> x<-Hald[ ,-1] # X variables from Hald data

> y<-Hald[ ,1] # y variable from Hald data

> mctest(x, y) # default collinearity diagnostics

> mctest(x, y, type = “i”) # individual collinearity diagnostics

> mctest(x, y, type = “o”) # overall collinearity diagnostics

**Overall collinearity diagnostics**

For overall collinearity diagnostics, eigenvalues and condition numbers are also produced either intercept term is included or not. The syntax of *omcdiag()* function is

omcdiag(x, y, na.rm = TRUE, Inter = True, detr = 0.01, red = 0.5, conf = 0.95, theil = 0.5, cn = 30, …)

Determinant of correlation matrix, Farrar test of Chi-square, Red indicator, sum of lambda inverse values, Theils’ indicator and CN.

> omcdiag(x, y, Inter=FALSE)

> omcdiag(x, y)[1]

> omcidag(x,y, detr=0.001, conf=0.99)

For the last command (with threshold for determinant and confidence interval for Farrar and Glauber test). the output is,

**Individual collinearity diagnostics**

imcdiag(x, y, method = NULL, na.rm = TRUE, corr = FALSE, vif = 10, tol = 0.1, conf = 0.95, cvif = 10, leamer = 0.1, all = all)

Function *imcdiag()* detects the existence of multicollinearity due to certain *X*-variable. This includes VIF, TOL, Klein’s rule, CVIF, F&G test of Chi-square and F-test.

> imcdiag(x = x, y)

> imcdiag(x = x, y, corr = TRUE) # correlation matrix

> imcdiag(x = x, y, vif = 5, leamer = 0.05) # with threshold of VIF and leamer method

> imcdiag(x = x, y, all = True)

> imcdiag(x = x, y, all = TRUE, vif = 5, leamer = 0.2, cvif = 5)

**Graphical representation of VIF and Eigenvalues**

> mc.plot(x, y, Inter = FALSE, vif = 10, ev = 0.01)

> mc.plot(x, y)

> mc.plot(x, y, vif = 5, ev = 0.2)

For further detail about collinearity diagnostic see