# NOT RUN {
data(MSC)
X=MSC$X
Y=MSC$Y
dim(X)
table(Y)
boot=bootsPLS(X=X,Y=Y,ncomp=3,many=5,kCV=5)
plot(boot)
plot(boot,light=0.3,legend.position=FALSE)
plot(boot,light=0.3,legend.position=FALSE, name.var = paste("Gene",1:ncol(X)))
# }
Run the code above in your browser using DataLab