pls
data(pine)
ypine <- pine[,11]
Xpine <- pine[,1:10]
(Pinscaled <- as.data.frame(cbind(scale(log(ypine)),scale(as.matrix(Xpine)))))
colnames(Pinscaled)[1] <- "yy"
modpls <- plsR(log(ypine),Xpine,10)
modpls$Std.Coeffs
Run the code above in your browser using DataLab