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