data(housing)
# Linear regression & decompose
fit.lm <- lm(bmi ~ sex + tenure + place + age,data = housing)
contrib.lm <- contribution(fit.lm, housing$income)
# plot horizontally, in increasing order
plot(contrib.lm, decreasing = FALSE, horiz = TRUE)
Run the code above in your browser using DataLab