# NOT RUN {
data(Penta)
mod1 <- plsFit(log.RAI ~., scale = TRUE, data = Penta[, -1],
ncomp = 2, validation = "loo")
plot(mod1, plottype = "scoresplot")
# }
# NOT RUN {
plot(mod1, plottype = "loadingsplot2D")
plot(mod1, plottype = "T2", ncomp = 2, phase = 1, conf = c(.95, .99))
# }
Run the code above in your browser using DataLab