> install.packages("partykit")
> library(partykit)
> library(rpart)
> data(Boston,package="MASS")
> bst.index <- sample(nrow(Boston), nrow(Boston) * 0.2)
> bst.test = Boston[bst.index,]
> bst.train = Boston[-bst.index,]
> bst.rf = rpart(medv~.,data=bst.train)
> plot(as.party(bst.rf))
