data(Penta)
mod1 <- plsFit(log.RAI ~., scale = TRUE, data = Penta[, -1],
ncomp = 2, validation = "loo")
smc(mod1)
plot(smc(mod1))
### PLS MODEL FIT WITH method = 'wrtpls' and validation = 'none', i.e. WRT-PLS is performed ###
if (FALSE) {
mod2 <- plsFit(Sepal.Length ~., scale = TRUE, data = iris,
method = "wrtpls", validation = "none") #ncomp is ignored
plot(smc(mod2, ncomps = 2))
}
Run the code above in your browser using DataLab