package{rpart} function

library("mvpart")
my.rpart <- function(func, d) {
    # set options
    require("mvpart")
    rpart(func, data = d, method = "class", control = rpart.control(minsplit = 1))
}
printDtree <- function(d.rp) {
    # set options for plot decition tree
    require("mvpart")
    plot(d.rp, uniform = T, branch = 0.6, margin = 0.05)
    text(d.rp, uniform = T, all = T, use.n = T)  # cex=0.7 
}
data(iris)
d <- iris
names(d) <- tolower(names(d))
d.rp <- my.rpart(species ~ ., d)
printDtree(d.rp)