require(pls)
char <- talbot.potato$char
yield <- talbot.potato$yield
# Transform columns to zero mean and unit variance
char <- scale(char)
yield <- scale(yield)
m1 <- plsr(yield ~ char, ncomp=3)
summary(m1)
# Loadings factor 1
lo <- loadings(m1)[,1,drop=FALSE]
round(-1*lo[order(-1*lo),1,drop=FALSE],2)Run the code above in your browser using DataLab