install.packages("rpart")
library(rpart)
#x11()
formula = Species~.
iris.df=rpart(formula, data=iris)
iris.df
plot(iris.df)
text(iris.df, use.n=T, cex=0.7)
post(iris.df)