> install.packages("partykit")
> library(rpart)
> library(partykit)
> ir.rpart <- rpart(Species ~ ., data = ir.train)
> plot(as.party(ir.rpart))
