data(Penta)
mod1 <- plsFit(log.RAI ~., scale = TRUE, data = Penta[, -1],
ncomp = 2, validation = "loo")
loadingsplot2D(mod1, comp = c(1, 2))
if (FALSE) {
data(Penta)
mod2 <- plsFit(log.RAI ~., scale = TRUE, data = Penta[, -1],
ncomp = 2, validation = "loo")
loadingsplot2D(mod2, comp = c(1, 2))
}
data(iris)
pc1 <- pcaFit(iris)
loadingsplot2D(pc1, comp = c(1, 2))
Run the code above in your browser using DataLab