# There is not enough permutations here but the example runs faster.
require(mixOmics)
data(yeast)
X <- t(yeast$data)
Y <- yeast$strain.cond
model <- plsda(X,Y,ncomp=3)
PLSDA.test(model,M=5,nperm=29)
Run the code above in your browser using DataLab