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)
subframe(perf, TRUE, "pred", "prob", 1, resample=cv)
Run the code above in your browser using DataLab