> ir.rpart <- rpart(Species ~ ., data = ir.train, minsplit=0, maxdepth=4)
> plot(as.party(ir.rpart))
