proc <- modeling.procedure("lda")
cv <- resample("crossval", y=iris$Species, nfold=5, nrep=3)
perf <- evaluate.modeling(proc, x=iris[-5], y=iris$Species, resample=cv)
err <- subtree(perf, TRUE, "error")
Run the code above in your browser using DataLab