# NOT RUN {
## Hald Cement data
data(Hald)
model <- lm(y~X1+X2+X3+X4, data = as.data.frame(Hald))
# with Intercept term
eigprop(model)
# without Intercept term
eigprop(model, Inter = FALSE)
# different proportion threshold
eigprop(model, prop = 0.45)
# only variance proportions
eigprop(model)$pi
# only condition indices
eigprop(model)$ci
# only eigenvalues
eigprop(model)$ev
# }
Run the code above in your browser using DataLab