require(lattice)
data(liver.toxicity)
X <- liver.toxicity$gene
Y <- liver.toxicity$clinic
liver.val <- valid(X, Y, ncomp = 5, mode = "regression",
method = "pls", validation = "loo")
plot.valid(liver.val, criterion = "RMSEP", type = "l", layout = c(2, 2))
Run the code above in your browser using DataLab