A simple decision tree I found code for after reading my Production Operations textbook.

library(rpart)

# grow tree
fit <- rpart(Kyphosis ~ Age + Number + Start,
             method="class", data=kyphosis)
plot(fit, uniform=TRUE,
     main="Decision tree in R")

# plot tree