data(Penta)
mod1 <- plsFit(log.RAI ~., scale = TRUE, data = Penta[, -1],
ncomp = 2, validation = "loo")
XresidualContrib(mod1, ncomp = 2, obs1 = 3)
if (FALSE) {
#PCA Model
pc1 <- pcaFit(Penta[, -1], ncomp = 4)
XresidualContrib(pc1, ncomp = 3, obs1 = 3)
}
Run the code above in your browser using DataLab