# \donttest{
# Create data with multicollinearity
data <- data.frame(x = rnorm(100),
y = sample.int(100, 100),
z = runif(100, 3, 6))
test = data.frame(mc_1 = data$x,
mc_2 = data$x * 2 + data$y - data$z)
dat = cbind(test, data)
# Run function
mc_check = drop_multicollin(dat)
mc_check$dropped_cols
# }
Run the code above in your browser using DataLab