# Iris data
data(iris)
# Stratified cross-validation of PCALDA for Iris data
pars <- valipars(sampling="cv", niter=10, nreps=10, strat=TRUE)
acc <- accest(Species~., data = iris, method = "pcalda", pars = pars)
acc
summary(acc)
plot(acc)
Run the code above in your browser using DataLab