coefficients <- coef(pls.model)
sum.coef <- sum(sapply(coefficients, abs))
coefficients <- coefficients * 100 / sum.coef
names(coefficients) <- TidyLabels(Labels(dat)[-1])
coefficients <- sort(coefficients, decreasing = TRUE)