dat <- data.frame(x1 = c(3, 2, 4, 9, 5, 3, 6, 4, 5, 6, 3, 5),
x2 = c(1, 4, 3, 1, 2, 4, 3, 5, 1, 7, 8, 7),
x3 = c(0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1),
y = c(0, 1, 0, 2, 0, 1, 0, 0, 1, 2, 1, 0))
#----------------------------
# Dominance analysis for a linear model
mod <- lm(y ~ x1 + x2 + x3, data = dat)
dominance(mod)
# Print all results
dominance(mod, print = "all")
if (FALSE) {
#----------------------------
# Write Results into a Excel file
mod <- lm(y ~ x1 + x2 + x3, data = dat)
dominance(mod, write = "Dominance.xlsx", output = FALSE)
result <- dominance(mod, print = "all", output = FALSE)
write.result(result, "Dominance.xlsx")
}
Run the code above in your browser using DataLab