Detect aliased variables in a linear model

This function identifies aliased (linearly dependent) variables in a linear model by fitting a linear model, and then using the stats::alias function to detect aliased variables.

Usage

detect_alias(data, verbose = FALSE)

Arguments

data

A data frame or tibble containing the variables to be checked for aliasing.

verbose

Logical. Whether to print the aliased variables found (if any). If TRUE, aliased variables are printed to the console. Defaults to FALSE.

Value

Returns a character vector of aliased variable names if any are found; otherwise, returns NULL invisibly. If verbose is TRUE, the function will also print a message to the console.

Author

Ahmed El-Gabbas

Examples

load_packages(car)

x1 <- rnorm(100)
x2 <- 2 * x1
x3 <- rnorm(100)
y <- rnorm(100)

model <- lm(y ~ x1 + x2 + x3)
summary(model)
#> 
#> Call:
#> lm(formula = y ~ x1 + x2 + x3)
#> 
#> Residuals:
#>     Min      1Q  Median      3Q     Max 
#> -3.1115 -0.6627 -0.1084  0.8030  2.1858 
#> 
#> Coefficients: (1 not defined because of singularities)
#>             Estimate Std. Error t value Pr(>|t|)  
#> (Intercept)   0.1518     0.1071   1.418   0.1595  
#> x1            0.2016     0.1073   1.878   0.0633 .
#> x2                NA         NA      NA       NA  
#> x3           -0.1271     0.1083  -1.174   0.2434  
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#> 
#> Residual standard error: 1.046 on 97 degrees of freedom
#> Multiple R-squared:  0.04927,	Adjusted R-squared:  0.02967 
#> F-statistic: 2.513 on 2 and 97 DF,  p-value: 0.08625
#> 

# there are aliased coefficients in the model
try(car::vif(model))
#> Error in vif.default(model) : there are aliased coefficients in the model

# The function identifies the aliased variables
detect_alias(data = cbind.data.frame(x1, x2, x3))
#> [1] "x2"

detect_alias(data = cbind.data.frame(x1, x2, x3), verbose = TRUE)
#> aliased variables: x2
#> [1] "x2"

# excluding x2 and refit the model
model <- lm(y ~ x1 + x3)

summary(model)
#> 
#> Call:
#> lm(formula = y ~ x1 + x3)
#> 
#> Residuals:
#>     Min      1Q  Median      3Q     Max 
#> -3.1115 -0.6627 -0.1084  0.8030  2.1858 
#> 
#> Coefficients:
#>             Estimate Std. Error t value Pr(>|t|)  
#> (Intercept)   0.1518     0.1071   1.418   0.1595  
#> x1            0.2016     0.1073   1.878   0.0633 .
#> x3           -0.1271     0.1083  -1.174   0.2434  
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#> 
#> Residual standard error: 1.046 on 97 degrees of freedom
#> Multiple R-squared:  0.04927,	Adjusted R-squared:  0.02967 
#> F-statistic: 2.513 on 2 and 97 DF,  p-value: 0.08625
#> 

try(car::vif(model))
#>       x1       x3 
#> 1.000711 1.000711