# NOT RUN {
## Hald Cement data
data(Hald)
model <- lm(y~X1+X2+X3+X4, data = as.data.frame(Hald))
## plot with default threshold of VIF and Eigenvalues with no intercept
mc.plot(model)
## plot with default threshold of VIF and Eigenvalues with intercept
mc.plot(model, Inter = TRUE)
## plot with specific threshold of VIF and Eigenvalues with no intercept
mc.plot(model, vif = 5, ev = 20)
## plot with specific threshold of VIF and Eigenvalues with intercept
mc.plot(model, vif = 5, ev = 20, Inter = TRUE)
# }
Run the code above in your browser using DataLab