data(sensory)
mod <- plsr(Panel ~ Quality, data = sensory, CV = TRUE, length.seg = 1)
## These three are equivalent:
validationplot(mod, estimate = "all")
plot(mod, "validation", estimate = "all")
plot(RMSEP(mod, estimate = "all"))
## Plot R2:
plot(mod, "validation", val.type = "R2")
Run the code above in your browser using DataLab