data(NIR)
mod.nir <- plsr(y ~ X, ncomp = 8, data = NIR)
coefplot(mod.nir, ncomp = 1:6)
plot(mod.nir, plottype = "coefficients", ncomp = 1:6) # Equivalent to the previous
data(sensory)
mod.sens <- plsr(Quality ~ Panel, ncomp = 4, data = sensory)
plot(mod.sens, ncomp = 2:4, separate = TRUE)
Run the code above in your browser using DataLab