library("klaR")
greedy.wilks(Species~., data=iris, niveau=0.1)

plineplot(Species~., data=iris, method="lda", x=iris[,4], xlab="Petal.Width")
m <- NaiveBayes(Species~., data=iris)
plot(m)